LA VIRGULE de LE FORUM 
FLOTTANTE is TELEMATIQUE 
CORDIC SAMXJEDI 


Au vu de la présentation de ce sommaire, vous avez certainement 
constaté un changement de présentation. Nous sommes dorénavant 
en mesure de tirer maintenant les maquettes de la revue sur 
imprimante laser. Un scanner à main permet aussi l'introduction 
de graphismes dans nos pages. 


Concernant notre retard de parution, nous faisons une fois de 
plus appel aux bonnes volontés pour nous aider à remplir les 
pages de la revue. 


Nous avons réussi enfin à établir un contact avec un club 
anglais; espérons que de fructueux échanges en découleront. A 
ceux qui partent en vacance, nous leur souhaitons du beau temps 
et de disposer d'assez de temps pour nous mijoter quelques 
programmes bourrés d'astuces. Puis-je compter sur vous? Ne me 
décevez pas. 


FORTH: Package en virgule flottante, algorithme de cordic 2 


TELEMATIQUE: Contenu du Forum SAM*JEDI 15 


Nos coordonnées: ASSOCIATION JEDI 
17, rue de la Lancette 
75012 PARIS 
tél président: (33) 1-43.40.96.53 
tél secrétaire: (33) 1-49.85.63.67 


TELETEL: 
3615 SAM*JEDI 
(France, DOM, TOM) 


(33) 36.43.15.15 SAM*JEDI 
(1200,E,7,1) (Etranger) 
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PACKAGE VIRGULE FLOTTANTE 
ALGORITHME DE CORDIC 


par Christophe LAVARENNE 


Système: TURBO-Forth 83-Standard 
Adaptabilité: F83-Laxen et Perry MSDOS et CP/M 
VolksFORTH ATARI 
Diffusion: téléchargement 3615 SAM*JEDI ‘Maths! 
et prochaînement module M8 


Pour La première fois dans Les colonnes de JEDI, un 
programme TURBO-Forth est d'abord écrit et diffusé en 
anglais. De précédents numéros de JEDI (20, 38, 42 et 47) 
traitaient La virgule flottante en pratique et en théorie. 


Cette nouvelle mouture devrait retenir votre attention, car 
ses caractéristiques en font un des programmes de 
traitement numérique Les plus performants diffusés à ce 
jour dans nos colonnes: 

- contrôle de La précision de calcul à La compilation (10 
à plus de 30 décimales), 

- gestion d'une pile de nombres flottants à part des piles 
données et retour, 

- opérateurs arithmétiques, 
exponentielles, trigonométriques, 
- conversion polaire-scalaire, 

- calculs sur nombres complexes. 


fonctions logarithme, 


Le programme ne comprend pas moins de huit fichiers. Selon 
la rapidité souhaitée, on peut compiler Les routines 
d'optimisation écrites en assembleur FORTH 8086 (TURBO- 
Forth et F83 Laxen et Perry MSDOS) ou leur version FORTH 
sur d'autres systèmes. 


LISTING: CORDICFP.FTH 


PTTETTELELLILEILLLLILLELLELELELLLLLSELSELELELSLSLLS] 
TurboForth CORDIC Floating Point package v1.0 


Makefile : see compiling options after EOF 
Original code written by: 

Christophe Lavarenne, consultant 

12, rue du Docteur Vuillieme 

92190 Meudon FRANCE tel (+33)(1345071341 


LILI TI LES LS LL ESS EL LS LES iii), },;,),),;,}X SX, 1 


CC CCC 


cr .( Loading CORDIC Floating-Point package vi.0...) cr 
decimal only forth also definitions 
vocabulary CORDIC CORDIC also definitions 


include FPI124 
\ 53 constant SMB 
\ include FPIXX1 


(1) <--------- \ choose either (1) 
or (2a)+(2b)+(2c) 


include FP_8086 (B) / either 


include FPKERNEL 


\ 
\ 
\ 
\ 
\ include FP_FORTH \ CA) \ choose 
\ 
\ 
\ choose always 
\ 


\ include FPIXX2 
SMB dup s>f 2 s>f flog f* \ -- SMB | == SMB*lLog(2) 


.( accuracy: ) . .( bits =) 2 places f. 
.( decimal digits) 


\initial settings : 
6 PLACES NEAREST  FLOATS  DEGREES cr 
.( Floating-Point package Loaded in vocabulary CORDIC) cr 


LEARN 


EOF 
MER AH AA OR AR COMPILING OPTIONS 


\ Link CORDIC.VOC documentation 


Option on SMB, the number of Significant Mantissa Bits: 
- for SMB=24, CORDIC constants are precomputed, 
choose (1) (choose this option for meta-compilation) 
- for other values of SMB, CORDIC constants must be 
initialized: 


it N°1. Jur 1389 


choose (2a) and (2b} and (2c) and change SMB's value 
WARNING: SMB must NOT be Less than 10 
the package needs about (n#*n/11 + 11%n + 7,5k) 
bytes, with n = SMB + log2(SMB) 


Option on the primitive definitions : 
- choose (A) for high level 
(portability) 

- choose (B) for 8086 assembler definitions (10 times 
faster) 


Forth83 definitions 


LISTING: FP124.FTH 


\ ÉTTILLLILLLLLELLLLLLILLLLLELLLELELLEELS LEE E ELLE EEE) 


\ TurboForth CORDIC Floating Point package v1.0 
\ 

\ CORDIC constants initialization for SMB=24 

\ (see CORDICFP.FTH for file compilation order) 


\ PTTTIITIILLILLLLLLILLELESLLLLELELES ESS 
\ constants (24 bits fixed accuracy) 


decimal 
4 constant SMB 
29 constant gu 
\ mantissa Guarded bit Width = SMB+log2(SMB) 
& constant rw 
\ Register byte Width = (Gu+3 +7)/8 


\ number of Significant Mantissa Bits 


\ ÉTTTIILLILLELELLLELLEELLLELELLLELELE EE SE) 


\ registers 


create x rw allot \ X -= mS y>>i 
create y rw allot \y+z S x>i 
create z rw allot \z-= Szli] 


create xs rw allot \ secondary registers 
create ys ru allot 


create zs rw allot 


HEX 
NEC LL LL LE LLLLLLLLELELECLEELLLLELLLLSLS SES 


\ linear tables (24 bits fixed accuracy) 


\ cyclic table for negative poners of 2 
4000 , 0 2000 , 0 1000 , 0 


create zlrw 
8000 , O 


LL LA LA LA 
0800 , 0 , (0400 , 0 , 0200 , 0, 0100,0, 
0080 , 0 , 0040 , O0 , 0020 , 0, 0010,0, 
0008 , 0 , 0004 , 0, 0002, 0, 0001,0, 0,0, 

create 212 zlrw dup 3 ru * 2- + \ -- zLrw zl[1] 

dup , rw + dup , rw + dup, ru + dup , rW + 
dup , rw + dup, rw + dup , ru + dup , rw + 
dup , rw + dup , rw + dup , ru +dup, ru+, 
dup , rw + dup, rw + dup , rw + dup, rw + 
dup , rw + dup , rw + dup , ru + dup , FW + 
dup , ru + dup, rw + dup , rw + dup , rw + 
dup , rw + dup, rw + dup , rw+, 


\ PRE OI EE TT SL EL LILI LLILLLLLLLELLLELELLLLLE) SES SES 
\ trigo constants and tables (24 bits fixed accuracy) 


create 1/Kt 9DB6 , 136€ , \ Trigo radius scaling facto 
create r>d DC1A , 1CA5 , \ 180/pi>>6 
create der 46A3 , 11DF , \ pi/180>>-5 
create r>g BBB2 , 1FD4 , \ 200/pi>>6 
create g>r BF93 , 1015,  \ pi/200>>-5 


create ztrw 
\ Atg(1>>i) i=0..gw/3. i>gu/3 => Atg(1>>i)=1>>i 
FB55 , 1921 , 3384 , OEDé , DD7E , 07D6 , B753 , O3FA , 
55BC , O1FF , EAAE , OOFF , FD56 , 007F , FFAB , O03F, 
FFF6é , 001F , FFFF , O00F , 


create zt2 ztrw 
dup ,.rw + dup , rw + dup, rw + dup , rw + dup , rw + 
dup , rw + dup , ru + dup , rw + dup , ru+, 


zl2 gw 3 / 2* + here gn dup 3 / - 2* dup allot cmove 


create zt1 \ for XYROT 
1c,2c,3c,3c,4c,2c,3c,2c, &c,2c, 
3c,lc, lc, ie, 1c, ic, 1c, ic, 1c,îlc, 
Tec, ic, ic,lc, 1c,1ic,ic,ic,ilc, ic, 


\ PRET EN I II NET TT TT EL LI II LI LILI LL LLLLLLLLELLELS SE ES EE) 
\ hyper constants and tables (24 bits fixed accurac )- 


create 1/Kh DOFE , 2643 , 
\ Hyper radius scaling factor 

create lLne 42F4 , 162E , 

create Un10/4 B1B4 , 126B, 


\ in(2) 
\ In(10)>>2 


create zhrw 
\Ath(P>>1) 1=1..gw/3. i>gw/3 => Ath(1>>i)=1>>1i 
EA76 , 1193 , 577A , 082C , 6245 , 0405 , AB10 , 0200 , 
1558 , 0100 , O2AA , 0080 , 0055 , 0040 , O00A , 0020 , 
0001 , 0010, 


create zh2 zhrw 
dup , rw+ dup , rw + dup , rw + dup , rw + dup , rw + 
dup , rw + dup , ru + dup , rw+, 
zl2 gw 3 / 2* + here gw dup 3 / - 2* dup allot cmove 
DECIMAL 
EOF 


/ KRRRRRRRERRERRARAERARRERELRRRARÉ RAR ARR 


: .table \ ad i-- \ dump table 
cr over body> >name .name \ table name 
." : key to dump/stop..." key drop \ 


gw 1+ swap \ for each table item 
do key? if key key 2drop then \ stop if key 
cr i 2.r dupa \ print item index 
dup h. 3 spaces \ print mantissa in hex 
z Swap := 0 z regd e. \ print item in E format 
2+ loop drop ; 
212 1 .table \ dump linear table 
zh2 7 .table \ dump hyper table 
zt2 O0 .table \ dump trigo table 


forget .table 


EOF 
LÉLLELEES ES SELLE LS LILI LELLLLELLLLLLTTITSLT] 

This code initializes statically the Cordic tables (instead 
of computing them at compile time) so that the file may 
easily be cross-commpiled for a number of Significant 
Mantissa Bits fixed to SMB=24 


Each register or value is a mantissa, rw bytes wide, with 
byte significance increasing as byte address, in 2'!s 
complement in the range [-4.0,4.0[ (fix point left of msb-3 
: highest byte of 0.5 is hex 10) 


Cross compilation for other values of SMB would ask to 
generate the same kind of file, where the constant values 
would be copied from the tables dump (see .table) 


LISTING: FPIXX1.FTH 


\ RAR ARARRRRA RAR AREA AN ÉARÉRÉRRÉÉRRRRAR AA ÉUHU 


\ TurboForth CORDIC Floating Point package v1.0 
\ 
\ CORDIC initialization for variable accuracy (parti) 


\ (see CORDICFP.FTH for files compilation order) 
\ RRRRAARRRÉARRRRERRARERARRARRERRRARARARAARRHÉ 


SMB 10 < abort" SMB should be 10 minimum" 
\ else rw<4 can't hold double integers 


: gW \n-- n+log2(n) \ add guard bits 
dup \ for i=0 to log2(SMB) 
begin 1+ swap 2/ tuck 0= until \  m>i nti -- 


nip ; \ -- ntlog2(n) 
SMB gw forget gw constant gw \ Guarded bit Width 
gW 3+ 15 +16 / 2* constant ru \ Register byte Width 


\ z?rw tables hold precomputed values (rw bytes wide) 
\ 272 tables hold values address for each step 
\ (2 bytes wide) 


17 rw * allot 
gn 2* allot 


create zlrw 
create zl2 


\ negative powers of 2 
\ #zl21i]=1>>i i=1..gw 


create zhrw  gw 3 / ru * allot 

\ zhrwli]=Ath(>>i) i=1..gw/3 
create zh2 gn 2* allot 

\ #zh2{i]=Ath(1>>i) i=1..gw 


create ztrw  gw 3 / 1+ ru * allot 


\ ztrwli]=Atg(1>>i) i=0..gu/3 
create zt2 gw 1+ 2* allot 

\ *zt2[i]=Atg(1>>i) i=0..gw 
create zt1 gw 1+ allot 
\ trigo repeat bytes for Kt=2 


create Ln2 rw allot \ natural logarithm of 2 
create in10/4 rw allot \ 1/4 natural logarithm of 10 
create 1/Kh rw allot \ hyper radius scaling factor 


create 1/Kt rw allot trigo radius scaling factor 
create r>d rw allot (180/pi)>>6 


\ 
\ 
create dr rw allot \ (pi/180)>>-5 
\ 
\ 


create r>g rw allot (200/pi)>>6 
create g>r rw allot (pi/200)>>-5 


\ The Cordic algorithm uses 3 main registers 
\ 3 secondary registers are used to hold 
\ intermediate results 


create x rw allot \ X -= mS y>>i 
create y rw allot \ytz S x>>i 
create z rw allot \z-= Szli] 


create xs rw allot 
create ys rw allot 
create zs rw allot 


EOF 


CALE LL EEE STRESS SSL LLETSSISLISSTS STE TETE 


Cordic initializations for variable accuracy 


This code computes constants from SMB 
Cthe number of Significant Mantissa Bits). 


SMB IS THE ONLY CONSTANT YOU HAVE TO CHANGE 
(SMB is defined in FPMAKE.FTH) 


ALL follouing registers, tables, constants, and primitives 
are parametrized by SMB. 


Tables and constants values are computed using primitives 
(see FPIXX2.FTH; primitives are defined in FP_xXx. FTH) 


Mantissae hold values in 2's complement format: 
integer bit is at msb-2: most = +/-3.999... 
umormable) least significant bit is at msb-3-SMB 


C-4.0 


LISTING: FPIXX2.FTH 


\ LL ELLE SL LES LEE TETE TT TL LISTES ESS SLSIIISESS TS 


\ TurboForth CORDIC Floating Point package v1.0 

\ 

\ Constants initialization for sizable accuracy (part2) 
\ (see CORDICFP.FTH for files compilation order) 


\ LEE SL LE LE LEE ESS EE ST ES SES SES LILI ISILLIITT TT TS 


create init \ tag to forget 


5 initzlrw \-- init. zlrw table 
z clear 1zrw+2-1! zlrw[001=00008000... 
zlrw 17 1 zlrw[01]=00004000... 


zlrw[151=00000001... 
zlrw[16]=all zero 


do ji over z >>= rw + 
Loop clear ; 


et 


: initzl2 \-- \ init zl2 table 
zl2 gwo0 \ 
do 1 3 + ru * 2- \ 
[ 16 ru * 2- ] Literal mod  \ 
zirw + over ! 2+ \ zl2ti] = 1>>i 
Loop drop : \ -- 
: initzrw \ compute Gatan(1>>i) 


zhrw gw 3 / rw * ztrw over rw + \ erase ztrw and zhry 
erase erase gw 2/ 0 \ for j=0 to gw/2-1 
do x clear ÿ 2* 1+ x rw + 2- 1 \ x=(2j+1)>>13 
13 x norm y 2 /4= \ y=1/2 
vectoring linear 2- z dup >>= \ z = 1/(2j+1) = N 
ztrw rw + zhru \ -- ztrwl1} zhrwl1] 
gw 1 2* 1+ 3 max / O0 \ for i=1 to gu/(2j+1) 
do j 2* 4+ z dup >>= \ Z=N>>[i*(2j+1)] 


dup z += rW + SWAP \ zhrwli] += z 
dup z j 1 and \ztrwli] += 2*(-1)°j 
if -= else += then rw + SWAP 


JFDr N°SA4 - Juin 


AIS I 


\ == ztrwli+1] zhrwli+1] 
loop 2drop 
loop ; 


\ i<=gw/3: Gatan(1>>i) 

\ = sum(j>=0):[C-m°j)/(2j+1)] >> LiC2j+1)] 

\ i>gw/3: Gatan(1>>i) = 1>>i 

: initz2 \ adrw ad2 n -- \ initialize either: 
gw 3 / 1+ swap \ zhrw zh2 1 initz2 
do 2dup ! \ ztrw zt2 0 initz2 

Swap rw + Swap 2+ 

Loop nip 


zl2 gw 3 / 2* + swap 
gw dup 3 / - 2* cmove ; 


: init1/Kh \ =" \ hyper rescaling factor 
x 2 /4= z clear rotating hyper \ x=Kh/2 >1/4 
y 2 /4= vectoring L'inear \ z=1/2Kh 
z dup += 1/Kh z := ; 
: initlna \-- \ natural log of 2 
z 2 /4= (lnsr) \ z=ln(1/2)/2 
z +/- 2 dup += \ z=-ln(1/2)=ln(2) 
{ne z := ; 


: initln10/4 \rr 
10 s>f fln Ln10/4 reg! drop ; 


\ 1/4 natural log of 10 


: initpi/4 \-- \ pi/4=Atan(1) 
x 4 /4z y 4 /4=  vectoring \ x=1 yz1 z=0 
zt2 2+ gw1 
do oi (trigo) 2+ 
loop drop \-- 


ZtrWZ := ; \ ztrw(0]=pi/4 


\ the vectoring trigo cycle without i=0 has a domain of 
\ convergence greater than pi/4, therefore it may be used 
\ to compute pi/4 = Atg(1) = Atg(y/x) with x=y 
5: init1/Kt V== \ trigo rescaling factor 
x 4 /4= z clear rotating trigo \ x=Kt<2 
ÿ 4 /4=  vectoring linear \ z=1/2Kt 
z dup += 1/Kt z := ; 
: initrad \-- \ for rad> and >rad 


180 s>f pi f/ r>d reg! drop 
pi 180 s>f f/ d>r reg! drop 
200 s>f pi f/ r>g reg! drop 
pi 200 s>f f/ g>r reg! drop ; 


create kt ru allot \ kt-->1 => Kt-->2 
: initzti \-- \ trigo repeat bytes 
kt 2 /4= gu 2/1 \ kt = [1+(1>>0)°2]/4 
do 1 2* x Kt >>= kt x += \kt *= 1 + [1»>i]"2 
Loop \ kt = (Kt”2)/4 
°zt1 gw2/ 0 \ for i=0 to gw/2-1 
do 0 begin 1+ \ -- zt1[i] rep 
1 2* x kt >>= kt x += \  Kkt *= 1 + [1>>i1°72 
Y 4/4 y kt -= minYÿ À until kt>1 
until over cl 1+ kt x -= \ store rep, undo last 
Loop \ -- zt1[gw/2] 
zt1 gu + 1+ swap \ for i=gw/2 to gu 
do ic! \ ztili]=1 
Loop : Vs 


\ initialize and forget 


initzlrw initzle \ linear tables init. 


initzrw \ trigo and hyper prep. 

zhrw zh2 1 initz2 \ hyper tables init. 
init1/Kh initln2 îinitln10/4 \ hyper constants init. 

ztrw 2t2 O initz2 \ trigo tables init. 
initpi/4 init1/Kt initrad \ trigo constants init. 
initzt1 \ trigo reduction table init. 


forget init 


EOF 


\ RRRRRRARERRRRERRÉRRRRRÉRÉRRRRRRRRRRERÉURÉ 


\ To visualize the 3 CORDIC tables contents, 
\ compile also this code and execute .TABLES 


: .table \adi-- \ dump table 
cr over body> >name .name \ table name 
." : key to dump/stop...!"! key drop \ 
gw Î1+ swap \ for each table item 


JEDi V° SA - uin AIRIS 


do key? if key key 2drop then \ stop if key 


cr i 2 .r dup à \ print item index 
dup h. 3 spaces \ print mantissa in hex 
z swap := O0 z regd e. \ print item in E format 


2+ Loop drop ; 


: .tables 
zl2 1 .table 
zh 1 .table 
ztè 0 .table 


\ dump linear table 
\ dump hyper table 
\ dump trigo table 


EOF 


CÉLLLELLLLIELELL LEE ELLE LISE SEE LS EE EL); EE) 
Cordic constants initialization (part2) 


This code is compiled, executed, and then forgotten; the 
side effect is to ïinitialize the CORDIC tables and 
constants: for big values of SMB (more than 100), it may 
take a while, but this îs why CORDIC is then faster than 
any other soft f-pack... 


This initialization is done using only CORDIC routines: no 
“magic number!" has to be meta-computed for CORDIC to work! 
That sounds a bit Like FORTH meta-generation by FORTH 
itself, isn't it? 


LISTING: FP_FORTH.FTH 


\ PTITLILIILLLLLLLILLLLLLLLSLELLLELLLLLL LEE LE LES) 


\ TurboForth CORDIC Floating Point package v1.0 
\ 

\ CORDIC primitives high Level definition 

\ (see CORDICFP.FTH for files compilation order) 


\ PTTTTILILILILILLI ILES LL ELITE LLLELLLE LL EL SE; 5) 


decimal 


true if *x.*y <0 
fetch x MS word 
fetch y MS word 


: min \ -- t/f 
[ X ru + 2- ] Literal wa 
[y rw+2- ] Literal wa 


: wa \ addr -- w \ fébit fetch, with 
dup >r ca r> 1+ c@ 256 * + ; \ Low byte at Low addr 
: W! \ w addr -- \ débit store, with 
>r 0 256 um/mod ra 1+ cl r> cl ; \ Low byte at Low addr 
: minz \ -- t/f \ true if *z >=0 
[ zrw+2- ] literal wa \ fetch z MS word 
0< not ; \ return opposite sign 
\ 
\ 
\ 


xor D< ; \ return composed signs 
: clear \ r -- \ *r=0 

rw.erase ; \ clear register at r 
5/4 \rn-- \ *r=n/4 load immed. 

2048 * \ MSword : 0800 = 1/4 

swap rw 2- \ -- n*2048 r ru-2 

2dup erase \ clear except MSword 

+wl; \ store n/4 at MSuord 
5 += \ds-- \ *dt=*s add s to d 

O swap rot rw2/ 0 \-- cyins d ru/2 0 

do >r tuck w O tuck dr \-- s+i cyInt(sti) cy 


\-- s+i cyOut \ dri=sum 
\-- cy sti+2 drir2 


ra w@ O0 dd swap ra vw! 
swap 2+ r> 2+ 

Loop 

èdrop drop ; 


5 *E \ds-- \ *d-=*s sub s from d 
1 swap rot ru 2/ 0 \-- cyins d ru/2 0 
do >r tuck wi not O0 tuck dt \-- s+i cyInt(s+i) cy 

ra 0 dt swapra ul \-- s+i cyOut \ dti=dif 
swap 2+ r> 2+ \ -- cy stite d+i+2 
loop 
2drop drop ; 


5 +/- \r-- \*rz-#r negate r 
rw 0 skip ?dup \-- r+n run \ 0 = -0 
if  dup 1 and \n>z N even 
if swap 1- swap 1+ then  \ -- r+N ru-N 


\ negate first word<>0 
\ Crw-n)/2-1 next words 
are 1 complemented 


>r dup wû negate over y! 
r> 2/1 
?do 2+ dup wa not over w! \ 


00p \ -- r+rw-2 


then drop ; 


X only null Low words propagate carry, therefore only 
\ the first non null word is negated, and the others 
\ are 1 complemented 


create 2° \ increasing pouers of 2 
hex 0001 , 0002 , 0004 , 0008 , 0010 , 0020 , 0040 , 0080 , 
0100 , 0200 , 0400 , 0800 , 1000 , 2000 , 4000 , 8000 , 


decimal 


1>>= \nds-- \ *d=*s<<en  n=160+R 
Suap dup >r - >r negate 16 /mod >r \ -- R | Q s-d d 
2* 2° +9 \--r | @s-d d \r=2"R 
r> dup 0< 


\ m0: shift right q=min(1-Q,rw/2):anti-underflow 


if not rw2/ min dup 2* r> +>r \--r q | s-d+2q d 
rw 2/ over - r> swap r> swap \-- r q s-d+2q d N 
dup >r 0 \ N=rw/2-q 
?do 2dup + à over 1! 2+ \ s+2q d rw-2q cmove 
Loop \-- r q SD | N \D=d+2N 


\--r qD | sign D N 


tuck dup >r + 2- à O<>r 
\ dtrw-2q 2q sign fill 


swap 2* ra fill 


dup r> um* drop r> r> 0 \--rhD NO 
?do 2->r over ra a um* \--rhLH 
>r swap r> or r@a ! r> \--r LD \H#hat D 
loop \--rLd 
else \ n<0: shift left 


q=min(Q,rw/2):anti-overflou 
rw 2/ min r> over 2* - >r 
rw 2/ over - r> swap r> rw + swap 
\--r qs-d-2q dtrw | N 
dup >r 0 \ 


\--rq|s-d-2qd 


N=ru/2-q 


?do 2- 2dup + à over ! \ s d2q rw-2q cmove> 
Loop nip \--r qD |N \D-=d+2q 
swap 2* 2dup - swap erase \ -- r D | N \ d 2q eras 
O swap r> 0 \--rhD NO 
?do >r over ra 4 um* \--rhLH]|0 

>r or r> swap r@ ! r> 2+ \ -- r H D+2 \ L+h at D 
Loop \-- r H dtru 

then 


drop 2drop ; \-- 


\ copy sce s into dest d 
\-- ds rw/20 
\ Cd+2i) = (s+2i) 


115 \ds -- 
rw2/ 0 
do dup >r w@ over w! 2+ 
loop 2drop ; 


r> 2+ 


\ divide register d by 2 
\-- dtrwH rw/2 0 


1 >> \d-- 


rw + dup 2- wa O< rw 2/ 0 


do >r 2- dup wa tuck 2/ r> 1 and \ -- L D L/2 cy 
if 32768 or \if cy set bit15 of L/2 
else 32767 and \else reset bit15 
then \-- LD L>>1 
over W! swap \-- DL \ L=newH 


Loop 2drop ; 


\ normalize float with mantissa at addr r and binary 

\ exp. e; return corrected exponent e!'. 

: norm \er -- e! 
dup >r rw + dup 2- wa O< >r \--e rtrw sign r 
begin 2- dup wa ra <> until \-- e r+ru-n | signr 
dup wi r> if not then \ -- e r+ruw-n MSW r 
swap ra - 8 * \ -- e MSW ru-n r 
[rw 8 * 3 - ] Literat - over O< \ -- e MSW 3-8n 0< | r 
if 16 + \ if MSW<0: MSbit=bit15 


else begin 1+ swap 2/ tuck 0= until 
\ else bs=3-8n+MSb_rank 


then nip \--ebsl|r 
dup abs SMB > \ if |bs|>SMB: 
if 2drop -16384 r> clear \ zero: 000000<<-16384 
else dup r> dup >>= + \ -- etbs \ *r <<= -bs 
then ; Are, et 

EOF 


URLS EE SEE SET ESS S TEE SSL SLS SSII STILL TSTTT 


This implementation is given for MACHINE INDEPENDANCE and 
as an algorithmic template for assembler versions (see 
FP_8086.FTH version in 8086 series assembler) 


Wa and W! are Intel-like versions of 4 and 1; this memory 
model (byte significance increasing as addresses) is the 
most convenient and efficient for primitives (this is also 
the one chosen by IEEE standards) 


MINY and MINZ return registers signs; cordic rotation 


direction is determined at each step by minZ for ROTATING, 


or by minY for VECTORING 


Registers are either cleared (with CLEAR) 

or Loaded with immediate values (with /4=) 

or Loaded from other registers (with >>= or := ) 

or Loaded from the stack (with REG! --see FPMAIN.FTH) 

or added or subtracted with other registers (with += or 


or negated (with +/-) 


Cordic efficiency relays mainly on the >>= shifting 
routine : 
source mantissa at addr s is transfered at destination 
addr d 
while shifted n times 
>>z \nds-- \right for n>0 
>>= \nds-- \left for n<0 
optimized routines are also given 
= \ds-- \ copy s into d € >>= for n=0 ) 
>> \d-- \ divide d by 2 ( >>= for n=1 ) 


Normalized mantissae are in the range [-1..-1/2[ U 
[1/2..10 (-1 and 1/2 included, -1/2 and 1 excluded) 
positive normalized mantissae MShexDigit = 1 
negative normalized mantissae MShexDigit = E 
IS considered null any mantissa with MSbit<lsb (ie which 
must be normalized by more than SMB left shifts) 
Zero is coded with mantissa=0 and exp=-16384 


LISTING: FP_8086.FTH 


\ LRLLL ELLES LE ES ESS TS ET ES IELSLILLLSLISISTLT LITTLE ETES 


\ TurboForth CORDIC Floating Point package v1.0 


\ 
\ CORDIC primitives high level definition 
\ (see CORDICFP.FTH for files compilation order) 


\ LÉLELE LES SEE SE SET TESTS EST ES ESLLLS ST LL EST ETS 


ALSO 


\ débit fetch with 
\ Low byte at low addr 


CODE wa \ adr -- w 
BX pop O [BX]J push 
next end-code 


CODE w! \ w adr -- \ 1ébit store with 
BX pop O [BX] pop \ Low byte at Low addr 
next end-code 


CODE minz \ -- t/f \ true if *z>=0 
AX AX xor \ AX=0 
AL z rw 1- + #) cmp \ if *zMSB>=0 : 
0>= if AX dec then \ AX=-1 
1push  end-code \ -- AX 

CODE minY \ -- t/f \ true if *y.*x<0 
AX AX xor \ AX=0 
X rw 1- + #) DL mov \ DL=*XMSB 
Y FW1- + #) DL xor Vif CAYMSB:+:*xMSB)<0 
O< if AX dec then \ AX=-1 
push end-code \ -- AX 

CODE clear \r-- \ *r=0 clear r 
AX AX xor DI pop \ AX=0 Dizr (ES=DS) 
rw 2/ # CX mov rep AX stos \ erase r to r+rw-2 
next end-code \ 

CODE /4z= \rn-- \ *r=n/4 load immed. 
AX pop DI pop \ AX=n DI=r (ES=DS) 


11 # CL mov AX CL shl \ MSword: 0800 = 1/4 
rW 2- # CX mov rep byte AL stos AX stos 

\ clear r, r+rw-2 := AX 
next end-code 


CODE += \ *dr=*s 
SI DX mov \ save SI (ES=DS) 
SI pop BX pop SI BX sub 2 # BX sub \ Si=s BX-d-s-2 
cle rw 2/ do AX Lods AX O0 [BX+SI] adc 
\ for i=0 to ru/2 step 2 


\ds-- 


Loop \  Cd+i) += AX = (s+i) 
DX SI mov next end-code \ restore SI 
CODE -= \ds-- \ “d-z*s 
SI DX moy \ save SI (ES=DS) 
JED, N°SJ. Juin AIS 


cle 


Loop 


DX SI mov next end 
CODE +/- AL PES 
BX pop 2 # BX sub 


rw 2/ do 2 # BX add 
Loope 


if here 2 # BX add 
Loop 

then 

next end-code 


CODE >>= 


rw 1- # AX mov 


DH DH or O< 
if DX neg std 
DL CH and DX CL 
AL CH mov DL CH 
if AX DX mov 
O [BX+DI] AX 
AX CL shl 
DX DI add 
else 


AX DI add 


AX CL 


\ 


until 
then AH AH xor 
else 
gw # DX cmp >= 
if AX DX mov 
else DL CH and 
DX BX add 
AL CH mov 
O<> 
if begin 


until 
then 
O0 [BX+D1] 
AX CL sar 
then 
then 
” byte AL stos 


cid next end-code 
CODE := \ds 
SI DX mov 


SI pop DI pop 


rw 2/ # CX mov rep 


CODE >> \r-- 
BX pop rw 2- # BX 
ru 2- 2/ do 

BX dec BX dec 
Loop 
next 


end-code 


CODE norm 
BX pop DX pop 


\er 


AH AL mov std 


until 


SI pop BX pop SI BX sub 2 # BX sub \ SI=s Bx=d-s-2 
rw 2/ do AX lods AX 0 [BX+SI] sbb 


HEX E3 DECIMAL ( cx<>0 ) 


\nds-- 
BX pop DI pop DI BX sub DX pop \ BX=s-d DIi=d DX=n 


HEX 0703 # CX mov DECIMAL 


DX BX sub BX dec 


begin O0 [BX+DI] AX mov 


CH dec 0= 
AH AL mov 


AH AL mov DX CX mov 


DX SI mov next end-code 


ru # CX mov BX DI mov CX DI add 
DI dec O [DI] AL mov cby 

repz byte scas cld 
\ Look back for MSByte 


begin CX inc AX shr 0= 


\ for i=0 to ru/2 step 2 
\ (d+i) -= AX = (s+i) 


-code \ restore SI 
\ *rz-*r 
\ BX=r-2 (to save ZF) 
O [BX] neg \ negate words 


\ until no carry or end 
\ if not end of register 
O EIBXI not \ complement words 

\ until end of reg. 


\ *d=*s>>n 


\ AX=rw-1 
\ CH=7 CL=3 
\ if n<0 : Left shifts 
\ Intsgarr 
CH CL mov \DX=q CLzr 

\ CH=rw-1-q 
Vif q+i>= rw: 
mov \ AX:= (s) 
\  AX<<r 
\  Di=dtru-1 
\ else (ru>qt1) : 
\  BX=s-d-q-i 
\  Di-dtrw-1 
\ 
\ 


sar 
sub <= 
DX=rwW-1 


for i=rw-1-q dnto 1 


shl AX := (sti-1)<<r 


AH AL xchg byte AL stos 


(Di=d+q+ri) := AH 
AL=MSByte DI=drq 


\ 

\ 

\ 

\ m=0: right shifts 

\ if n>=gu (underflow): 
\ 

\ 

\ 

\ 


AX AX xor DX=rw-1 AX=0 else: 
DX CL sar CH=r  DX= n=8qtr 
CH CL mov Bx=s-d+q Cl=r 
DL CH sub CH=rw-1-q 

\ for i=0 upto rw-q-2 
O [BX+DI] AX mov \ AX := (stqri) 
AX CL sar \ AX»r 
byte AL stos \ (dri) := AL 
CH dec 0=  \ 

\ DI=d+rw-q 

\ 
AL mov chu  \ AL=(s+rw-1) 

\ AX>>r DX=q 

\ 


\ (see AX,DI,DX) 
\ store last signif.byte 
rep byte AL stos 
\ fill remaining bytes 


se \ copy register s into d 
\ save SI (ES=DS) 

\ Si=s DI=d 

\ move ru/2 words 

\ restore SI 


movs 


\ shift right once 
add O fBX] sar  \ shift MSword 


0 [CBX] rer \ other words 


-- e! \ see forth version 
\ BX=r DX=e 
\ CX=rW DI=r+rw 


\ Abzsign(r) 


1 [DI] AL mov \ CX=rw-n AL=MSByte 
AH AH or O< if AX not then \ AX = |MSByte| 

CX shl CX shl CX shl \ CX=8rW-8n 

rw 8 * 3 - # CX sub \ CX=3-Bn 


\ (with SHR, Loop ends) 
\ CX=de=3-8n+MSbit_rank 


Tin I GPU 


\ zero if |de|>SMB 
\ zero: 00000Û<<-16384 
\ -- zero exp r 

\ call CLEAR to clear r 


SMB negate # CX cmp <= 
if -16384 # DX mov 
DX push BX push 
1 clear >body #) jmp 


then \ 
CX DX add DX push \ -- el e'=etde 
CX push BX push BX push \--e!' drr 
1 >>= >body #) jmp \ call >>= to shift r 
end-code \ de>gu: >>= is CLEAR 
PREVIOUS 
EOF 


PP TT LT LIL II LL LL LE LEE CELLES SE SES S 


This implementation is dedicated to 8086 series processors 
(see FP_FORTH.FTH version as high Level template for other 
assemblers) 


W9 and WI are Intel-Like versions of à and ! 
this memory model (byte significance 
addresses) 
is the most convenient and efficient for primitives (this 
is. also the one chosen by IEEE standards) 


increasing as 


MINY and MINZ return registers signs; cordic rotation 
direction is determined at each step by minZ for ROTATING, 
or by minY for VECTORING 


Registers are either cleared (with CLEAR) 

or Loaded with imnediate values (with /4=) 

or Loaded from other registers (with >>= or := ) 

or Loaded from the stack (with REG! --see FPMAIN.FTH) 

or added or subtracted with other registers {with += 0r 


or negated (with +/-) 


Cordic efficiency relays mainly on the >>= shifting 
routine: 

source mantissa at addr s is transfered at destination 
addr d 


while shifted n times 


>>= \nds-- \ right for n>0 
>>= \nds -- \ left for n<0 
optimized routines are also given 
:= \ds-- À copy s into d ( >>= for n=0 ) 
>> \d-- \ divide d by 2 € >>= for nz1 ) 


NORM is executed for each result returned on the fpstack 
(see REGQ in FPMAIN.FTH) 
Normalized mantissae are 
[1/2..10 

(-1 and 1/2 included, -1/2 and 1 excluded) 
positive normal ized mantissae MShexDigit = 1 
negative normal ized mantissae MShexDigit = E 
Is considered null any mantissa with MSbit<Lsb 
(ie which must be normalized by more than 
shifts) 
Zero îis coded with mantissa=0 and exp=-16384 


in the range [-1..-1/2€ U 


SMB Left 


CD CH VA D D HR AT AO RAA A ARR 
\ version for processor with fast multiply um* 


\ this is a multiprecision fixed point multiply 


variable carry \ for multiple precision arith. 


: cle \-- \ clear carry flag 


carry off ; 


CODE +c  \ n1 n2 -- n1tnatcy 
AX pop BX pop byte carry #) rer \ prepare data 
BX AX adc  byte carry #) rel \ add, store carry 


push  end-code \ return result 


\ y<<et = x*z<<e 


: y=xz \e -- e! 
\ use z modulus 


Uzrw+2- ] Literal à 0< dup 


if z +/- then \ 

Lx rw + 2- ] Literal à O< dup \ use x modulus 
if x +/- then \ 

Xor \-- s \ s = sign(y) 
-3 z dup >>= 

000 zrw+ x 

rw 2/ 0 \ 

do rw 2/ i 


do dup 2+ >r à swap 2- dup >r @ \ ++ >r Swap --a>r 


um* 


LISTING: FPKERNEL. FTH 


\ CTSLELILLS ELLE ELLSELLILSSLESSELLSSÉLELISEESS EEE SS 
\ TurboForth CORDIC Floating Point package v1.0 


\ 
\ CORDIC main functions and user interface 
\ (see CORDICFP.FTH for files compilation order) 


\ CLÉS LELELESLLS ETES SELS LL LS Lis lit...) ;)] 


NE LLLELLLCLEELLLLESE LE LCL LCL LEE LEE LEE 
STACK 


\ CLÉS LLILÉEESLESESS LES SELS L SL Li Li); SE; )] 


\ each cell holds a 16bîts exponent in 2's complement 
\ format, followed by a mantissa in register format 


\ (rw bytes) 


rw 2+ constant sw 


variable fp 9 sw * allot 


here constant fp0d \ bottom of fp stack 


: fp0t \ -- \ clear fp stack 
fp0a fp ! ; 


fp0a fp ! \ initialize fp stack 


: ?ferror \n-- 
swap if fp0! case 
0 of "empty fp stack! endof 
1 of “ full fp stack" endof 
2 of " conversion overflouf! endof 
3 of " overflow'! endof 
& of " underflou'! endof 
5 of ! divide: arg=0! endof 
6 of " logarithm: arg=0" endof 
7 of " logarithm: arg<0" endof 
8 of " square root: arg<0' endof 
9 of " asin/acos/atanh: |arg|>1." endof 
10 of "use F# inside colon definitions! endof 


unknown fp error! rot 
endcase true ?error 
else drop then ; 


5: (fpa+) 
fp à + 
[ fp0Q sw - ] Literal 
over u< 0 ?ferror ; 


\ addr is n bytes 
\ below top of stack 


\n-- adr 


\ addr is top of stack 
\ before a pop 


\ -- addr 
sw fp +! : 


: Cfpop) 
0 (fpat) 


\ addr is top of stack 
\ after a push 


: (fpush) \ -- addr 
fp à sw - 

dup [ fp 2+ ] Literal 
u< 1 ?ferror 


dup fp ! ; 


\ check stack overflow 


\ pick sw bytes, 


: Cfpick) \ n -- 
\ n bytes under top 


(fpa+) (fpush) sw cmove ; 


\ roll sw bytes, 
\ n bytes under top 


: Cfroll) \n-- 
dup Cfpick) 
fp à dup su + 
sw fp +! ; 


rot SW + cmove> 


: fpick \n-- | fn..f0 == fn..f0 fn 
sw * Cfpick) ; 


\ pick nth float 
\ (top is Oth) 


\ roll nth float 


: froll \n-- | fn f..f0 == f..f0 fn 
; \ (top is Oth) 


sw * (froll) ; 


: fdrop \ f == 
Cfpop) drop ; 


-rot cle +c >r +c >r O0 +c \ -- s cy hit LorL : fdup \ f == f 


: fover \ f2 f1 == 


r> r> r> r> \-- s cyhi Lo a- a+ 
Loop \ 
rot i 1- 2* O0 max y + ! \ store Lo at y+2(i-1) 
>r >r O0 -rot r> r> swap 2+ \ 
loop 2drop \ (newhi=cy neulo=hi) 
[ y rw + 2- ] Lliteral ! 2drop \ -- s \ store Last hi 
if y +/- then ; RS 


\ fp stack grows towards Low memory, from fp04, max.depth=9 


\ stack width = exp + mantissa 


\ fp stack top pointer + stack 


: sint \f== | 


: dint \ f== | 


: S>f 


: df 


\ check stack underflow 


: f0= 


: f0< \f == 


: f0> 


f 
0 Cfpick) ; 


f2 f1 f2 
sw Cfpick) :; 


: fswap \ f2 f1 == f1 f2 


SW Cfroll) ; 


: frot \ f3 F2 f1 == f2 f1 f3 
sw 2* (froll) ; 

: reg! \ f == | r -- e \ f=kr<<e  stack -> register 
Cfpop) \ -- r top \ fp-=su 
tuck 2+ swap rw cmove \ -- top \ *r=(top+2) 
à ; \--e 

: reg \er-- | == \ f=*r<<e register -> stack 
tuck norm \--re! 
dup -16384 < 4 ?ferror \ check exp. underflow 
dup 16383 > 3 ?ferror \ check exp. overflon 
Cfpush) \-- re! top \ fp+=su 
tuck ! \-- r top \ (top+0)=e! 
2+ rw cmove ; Nes \ Ctop+2)z*r 

: (nearest) \rn-- \ round r to bitn 
xs 2 /4= xs dup >>= xs += : \r+=(1/2)>>n 


defer round 


‘ (nearest) is round 


: nearest 


['] (nearest) is round : 


: truncate 


['] drop is round : 


--n 
x reg! dup 15 > 2 ?ferror 
13 swap - x dup >>= 


[xrw2- +] literal à :; 


-- d 
x reg! dup 31 > 2 ?ferror 
29 swap - x dup >>= 
[x rwW4 - +] Literal 


dup à swap 2+ 4 ; 


\n-- | == 

zs clear 

[ zs rw2 - +] Literal ! 
13 zs rega ; 


\d--|==f 
èdup dabs swap 0< or 
if zs clear 


[ zs rw 4 - + ] Literal 


tuck 2+ 1 ! 

29 zs regâ 
else drop s>f 
then :; 


: fdup0= \f==f | -- #0  \ non destructive f0= 
fp à à -16383 «< ; \ zero: f <= 2°-16384 
: fsign \f=zf | -- f<0 \ non destructive f0< 


fp a rw+a O<; 


\ 
fdup0= fdrop ; 
| -- 


fsign fdrop ; 


\ f == 
fdup0= f0< or not ; 


: xy! \X f2f1 == | --e 


y reg! x reg! 

edup < 

if dup rot - y 
else over swap - x 
then 


dup >>= ; 


TEDi 


x 13 round 


x 29 round 


j -- +=0 


\ round is used by 
\ SINT DINT F1! 


\ set rounding 
\ to nearest 


\ set rounding 
\ to -infinity 


\ float-to-single 

\ -- e check overflow 
\ align comma and round 
\ fetch high single 


\ float-to-double 

\ -- e check overflow 
\ align comma and round 
\ fetch high double 

\ 24 is processor spec. 


\ single-to-float 


\ store high single 
\ normalize and push 


\ double-to-float 
\ too big for s>f ? 


\ store high double 
\ 2! is processor spec. 
\ normalize and push 


\ MSword at fp+2+ru-2 


f<0 


f>0 


\ f2=#x<<e f1=-*y<<e 


\ -- ey ex 

\ -- ey ex ey<ex 

\ -- ex ex-ey y 

\ -- ey ey-ex x 
\--e de r 
\--e *r>>zde 


N°ST - Juin À9F1 
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: f+ \ f2 f1 == f2+f1 \ fp addition 
XY! X y += x rega : 


: f- \ f2 f1 == f2-f1 \ fp subtraction 
XÿY! X ÿY -= x regd : 
: fnegate \f == -f 
zs reg! zs +/- zs regd ; 
: fabs \ f == abs(f) 
fsign \==f | -- f<0 
if  fnegate \=z -f 
then : \ zz abs(f) 
: fmax \ f2 f1 == max(f2,f1) 
fover f- fsign \a== f2 f2-f1 | -- f2<f1 
if fdrop \ == f2 
else f+ \ == f1 
then ; \ == max(f2,f1) 
: fmin \ f2 f1 == min(f2,f1) 
fover f- fsign \ == f2 f2-f1 | -- 
f2<f1 
if f+ \== f1 
else fdrop \ == f2 
then : \ == min(f2,f1) 
: f= \faft== | -- f2sfl 
f- f0= ; 
: f< A f2 f1 == | -- f2<f1 
f- f0< ; 
: f> \f2f1== | -- f2>f1 
f- fO> ; 


\ LL LE LL SE SEL LL LL LL LE LL LL si...) 


MEMORY 
\ KRRRRRRRRERERRRRERRERERARERERERRAARERAR 
\ floats are stored in memory in the same format as stack : 
\ msb-bit16 = normalized mantissa in 2's complement 
\ comma left of bit msb-3 
\ (mshexdigit: 1:positive E:negative O:zero) 
\bit15-lsb = binarÿy exponent in 2!s complement 


\ see also IEEE memory ops F32! F32Q F64! F64 


: fl \ addr -- | f == 
(fpop) swap sw cmove ; 

: fa \ addr -- | == f 
(fpush) sw cmove ; 

: f, \f=z= \ fp version of, 
here f! sw allot : 

: flit \ == f :exec: \ DON'T interpret FLIT 
r> dup fa sw + >r ; 

: fliteral \ f == :comp; \ compile fp Literal 
compile flit f, ; \ NOT state smart 

immediate 


: fconstant \ comp: f = \ fp constant 


\ exec: 
create f, 
does> fa ; 
: fvariable \ comp: -- \ fp variable 
\ exec: -- ad 
create sw allot ; 
: f*array \ comp: wn..w1 n -- \ multi-dimensionnal 
\ exec: in..i1 -- ad 
\ array of fp variables 
create 
dup 1 < abort'"! No. of dim.< 1" 
depth over <= 1 ?error \ stack underflow 
dup c, sw swap 0 \-- wn..w1 su n 0 
do over 1 < abort!" one dim.< 1" \ -- wn..wi N 
over , \ compile ith dimension 
ii \ -- Wn.. Wi%N 
Loop \--N 
allot \ ailot un*..*w1*sw 


TEDi N° SA - Tuin 139 


\ 
\ 
\ 


does> \-- in..i1 addr 
0 swap count 0 \-- in..i1 0 addrtin 
do \-- in..ii N ad 
dup 2+ >r à \-- in..ii N dim | adr2 
dup 3 pick <= \ comment this and next|. 


abort!" index out of range! 
\ to improve efficiency 


K+ r> \-- in... ji+N*dim ad+2 
Loop \ -- N addrOth 
Swap Sw * + ; \ -- addrNth 


HR VE HT HR HAN D AA AA A AR A A ARR 


CONVERGENCE DIRECTION 


RRRKRHRRRRRRRRRNRARRARRAARRRRARARAA ARR 


defer minYZ \ -- t/f \ either minYŸ or minz 


: rotating NES \ set rotating 


y clear ['] minZ is minYz : 


: vectoring Ne \ set vectoring 


z clear ['] minY is minYz ; 


: m. \ ad -- \ mantissa hex dump 


base à >r hex 3 spaces dup rw + 2- 

\ MS byte at high add 

do ia 0<### # # #> type 

-2 +loop 

r> base ! : \ (used by f.s) 


\ COS LLESLELLELELELELE LES ELLE LLES LS LS LE LE 

\ TRACE 

\ CLOTILDE SLLELELLSIELES ELLE EL SELLES SES SL LL LEE] 

\ comment this section not to compile the trace 

\ and Look for TRACE instructions to comment 

PS \r-- \ register hex dump 
dup m. ." =! body> >name .name ; \ along with its name 

3 XyZ. \i-- \ dump at step i 


d 
' 


cr 3,r xryrzr. minÿ23.r \ x y z and minYz 
." = [1] minYZ >body à >name .name 
key 3 = abort" °C": \ abort if control-C 


efer trace 


drop is trace 


tron \ set trace on 
['] xyz. is trace ; 


: troff \ set trace off 
(‘1 drop is trace ; 
s tr! \ trace only following 
tron ! execute troff ; \ word in input buffer 
\ CELLLELLILLELLLELLELS LS LS LS SSL EESTI EE); SE) 


\ 
\ 


LINEAR 
PCI ELLLLLESILI LILI CELL LELTELLLLELSL LES 


Uinear \ Es \ Linear complete Rot. 
zl2 gw 1+ 1 \ for i=1 to gw 

do zover 4 y x minYZ 

\ i trace \ select rot.direction 


if += -= \  ytzx z-z=2lrwli] 
else -= += \  y-=x 2+=zlrwli] 
then \ -- zl2[i] 
x >>  2+ \ -- zl2ti+1] \ x>>1 
Loop drop \ gw trace \ -- 
; \ with: zlrwli] = 1>>i 
\x --> 0 x --> 0 
\ y --> y+(2x*2z) y “=> 0 
{vectoring} 
\ z --> 0 {rotating} Zz --> 2+(y/2x) 
\ this routine may be already defined in the 


\ 


primitives file for processor with fast multiplier 
y=xz \e --e! \ y<<e! = xz<<e 


rotating linear 1- : 


f* \ fa f1 == f2xf1 \ float multiplication 
z reg! x reg! + \ -- e2tel \ x=m2 z=mi 


Y=XZ y regà ; \-- \ y=2*m2*mi 
: f/ \ fa f1 == f2/f1 \ float division 
fdup0= 5 ?ferror \ check divide by zero 
x reg! y regl - negate \ -- e2-el \ x=m1 y=m2 
vectoring linear 1+ z regû ; Ve \ z=m2/(2*m1) 
: #17  \ f == 1/f \ float inverse 
fdup0= 5 ?ferror \ check divide by zero 
x reg! negate y 2 /4= \-- -e \ x=m y=1/2 
vectoring linear 2+ z rega :; \ = \ z=1/(4*m) 


: (r/mod) \ f=z | eX mX -- Qey \ f = me<e = Q*X+R 
\ vectoring \ (for trace) \ X=mX<<eX R=y<<ey 
x swap := 1- y reg! z clear \ -- eX-1 e \ x=mX y=m 
dup >r - zl2 over O< \ -- eX-1-e 212 eX<zel e 
if over negate 0 \ if e>seX : 

do z over à y x minY 


\ i trace \ do the e-eX first 
if += 7 \ division steps, 
else -= += \  Leaving : 
then \ _z = integer quotient 
X >>  2+ \ y = fract. remainder 
Loop \ -- eX-1-e zl2fe-exl| e 
then \ over trace \ -- eX-1-e ad e 
\ now adjust yz to force remainder*dividend>0 (x=div 
y=rem) 
O y norm dup -16384 > \ -- eX-1-e ad ey yc>0le 
if negate y dup >>= minY Vif ye>0 and yx<0 : 
if over O< \ if e>=eX, restore 
if x dup += 2- \ last division step 
else swap 1+ \ else -- zl eX-e | e 
dup y dup >>= \ re-align y to x 
r> +>r -1 swap \ -- -1 zÙ | ex 
then \ -- ez ad | ey 
Y X += z over à -= \  repeat last div.step 
then dup \ balance stack 
then 2drop \-- ez | ey 
13 + z dup >>= \ align z comma on word 


[ z rw + 2- ] Literal à 
\ -1 trace \ fetch integer quotient 


r> ; \-- Qey 

: (z/mod) \f == | eX mX -- Q \ f = Q#X+R 
(r/mod) negate z y >>= ; \ X=mX<<eX -X<z=R<X 

: f/mod \f2fi==R|--Q  \f2= Q*fi#R (Q int) 
fdup0= 5 ?ferror \ check divide by zero 
x reg! x (r/mod) y rega ; 

: ffrac \ fa f1 == \ fp remainder of f2/f1 
f/mod drop ; 

: fint \fz=z fi \ fp integer part of f 
fsign dup \ f = s*m<<e 
if  fnegate \ use moculus of f 
then \-- s | == me 
fp 4 à dup gu < \-- s e e<gu | == m<<e 
if dup 0> \ if O<e<gyw 


if  dup [ rw 8 * 3 - ] literal - 
\ clear m fract. bits 
fp à 2+ over negate over \ by shifting 8rw-3-e 


dup >>= dup >>= \ times right and Left 
else -16384 fp à dup 2+ clear ! \ else store zero 
then \-- se | == abs(fi) 
then drop \-- 8 | == abs(fi) 
if  fnegate \ restore sign 
then ; \ == fi 


À RER HR HR HDR ADAAI DAN 
HYPERBOLIC 


\ ROCK ANIRÉ RAA RERRERRREREREURRRRRÉRRÉRRRR 


: Chyper) \ ad i -- ad \ Hyper elem. Rotation 
dup xs y >>= ys x >>= \ XS=Y>>i yszx>>i 
z over à y ys x xs minYz \ select rot.direction 
if += +2 -z \ x+=xs y+=ys z-z(ad) 
else -= -= += \ X-=XS y-=ys z+=(ad) 
then : \ with: (ad)=Atanh(1>>i) 
: hyper \ <== \ Hyper complete Rot. 
& zh2 gw1+ 1 \ for i=1 to gu 
do over i = \ -- k zhetil i=k 
if >r 3% 1+ r> \ 1=4,13..Kk,3k+1.. 
i_Chyper) 


\ i trace \ repeat step 


then \  -- k zh2li] 
i Chyper) 2+ \ oi trace \ -- k zh21i+1] 
Loop 2drop \ gu trace \ -- 
\ x --> Kh*[x*ch(z) + y*sh(z)] X --> Kh*sqr(x*x-y*y) 
\y --> Kh*[y*ch(z) + x*sh(z)] ÿ => 0  {vectoring} 
\z-->0 {rotating} Z ==> ztAtanh(y/x) 
: (Unsr) \-- \entry: z=m 
X4 JE X 2 += y -4 /4= y 2 += \ x=mt+1 y=m-1 


: fsqr \ f == sqr(f) 


vectoring hyper ; \ x=2Kh.sqr(m) z=ln(m)/2 
\ float square root 


fsign 8 ?ferror \ check sgr of f<0 


fdup0= not \ if f=0: sqr(f)=0. 

if z reg! \ -- e \z=m f=m<<e 
dup 1 and \ if e odd : 
if  1- z dup += \ e-=1 7z*=2 
then 2/ \ -- e/2 
Clnsr) 2 z 1/Kh >>= \ x=2Kh*sqr(m) z=1/4Kh 
ÿy=xz 1+ y rega \ y=sqr(m) 


then ; \ sgr(f)=sqr(m)<<(e/2) 


\ sqr(m<<e)}=sqr(m)<<(e/2) 

\ sqr(m) = sqr[(m-1)°2 - (m-1)°2]/2 

: 2z+e*ln2 \e--|==f \ zem --> f=2*mte*ln(2) 
dup 0= \ -- e e=0 
if 1+ z regd \ if e=0: == ?m 
else x clear [ X rw + 2- ] Literal ! \ x=e>>13 


13 x norm zs z := z Un? := 
\-- n \ x=e>>n zs=m z=ln2 


y=xz dup 1- zs dup >>= \-- n\ y=x*z zs=2m>>n 
Y ZS += y regd \ y = 2m>n + (n2*e>>»n 

then ; \ == 2mte*ln2 
:fln  \ f == (n(f) \ fp natural Logarithm 


fsign 7 ?ferror fdup0z 6 ?ferror \ check log of f<=0 
z reg! (lnsr) 2z+e*ln2 ; 
\ Ln(mc<<e)=ln(m)+e*ln(2) 


Ln(m<<e)=ln(m)+e*ln2  In(m) = 2*Atanh[(m-1) / (mr1)] 
: (exp) \f==1|--0a \ f=Q*in(2)+R 
O Ln2 (z/mod) x 1/Kh := \-- Q\ x=1/Kh z=R 


: faln \ f == exp(f) 


ere 


: Ln10 \ == 2.3025851. 


: flog \ f == log(f) 


rotating hyper x y += ; \ -- Q \x=exp(R) y=sh(R) 
\ fp exponential 

\ f=Q*{n(2)+R 

\ exp(f) = exp(R)<<Q 


(exp) x rega ; 


exp(Q*Ln2+R)=exp(m)<<Q exp(m) = sh(m) + ch(m) 
sh(Q*[n2+R)=[exp(R)-exp(-R)>>20] <<(Q-1) 
Ch(Q*Ln2+R)=[exp(R)+exp(-R)>>20]<<(Q-1) 


\ natural Log of 10 
2 Un10/4 rega ; 


\ decimal logarithm 
fin En10 f/ ; 


: falog \ f == 10°f \ decimal power 


: fx 


Un10 f* faln ; 


\ f2 f1 == f2°f1 \ 
fswap fln f* faln ; 


fp power 


: (scth) \ f == -- Q-1 \ f=Q*In(2)+R 
Cexp) y dup += y x -= \-- Q  y=-exp(-R) 
dup 2* y dup >>= \ -- Q  y=-exp(-R}>>20 
XY -= y dup+= y x += 14- ;5  \-- Q-1 x=ch(f}>>(Q-1) 

\ y=sh(f)>>(Q-1) 

: fsinh \ f == sh(f) \ hyperbolic sine 
(scth) y rega ; 

: fcosh \ f == ch(f) \ hyperbol ic cosine 
(scth) x rega :; 

: ftanh \ f == th(f) \ hyperbolic tangent 
Cscth) drop vectoring linear \ z=sh(f)/2ch(f) 
1 z regà : 

: 1)\f= | --fOE Vexit: [f|=-2s=1-2>>E 
fsign dup not \-- s f>=0 | == 

JED' N°ST- Jun 41939 
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if fnegate 

then 

z reg! z SMB (nearest) 
dup 0> 9 ?ferror 
negate zS z >>= 
0 z norm negate ; 


z norm 


z 4 /h= z zs += 


: (ath) VE -- E 
y 8 /4= yz-= x 8 /4= x z+- 
dup z dup >>= y z-= Xxz-= 
vectoring hyper ; \ 
\ 


: fatanh 
fdup0= not 
if (21-) Cath) 2z+e*ln2 

if  fnegate 

then 

-1 fp à +! 
then :; 


\ f == Atanh(f) 


\ Atanh(1-m>>E) = Atanh[(2-m-m>>E) 
\ (2+m-m>>E)]+(E/2)*Ln(2) 


use Me | modulus 
22 -|f 

e \ round 1+eps 

e \ check |fj>1 

\ zs=-|f| z=1-|f| 

E \ z=(1-|f[)<<E 


ec 
4 
Û 

u A UN 


dl 


entry:0<z<1 |f|=1-2»>E 
\y=2-z x = +7 

\ Y-=2>>E x-=2>>E 
x=Kh*sqr(1-f"2)<<(E/2+1) 
z=Atanh|f|-CE/2)*Lnç2) 


\ inverse hyp. tangent 
\ Atanh(0)=0. 


\ -- f<0 | == 2*Atanh|f| 
\ Atanh(-z) = -Atanh(z) 
\ == 2*Atanh(f) 

\ == Atanh(f) 

/ 


\ CILES LES ELELELELESS ES LES SELLE EE SES SL LE SE 


TRIGONOMETRIC 


\ LEPLSESLELLES SELS SEL LL LL EL SR; ;);,;,);,).)] 


5 pi \ == 3.141592654... 
2 ztrw rega ; 


defer rad> \ radians == units 
‘ noop is rad> 


defer >rad \ units == radians 
! noop is >rad 


: radians \-- 
[‘] noop is rad> 
['] noop is >rad ; 


: rad>deg \ radians == degrees 
6 r>d rega f* ; 


: deg>rad \ degrees == radians 
-5 d>r rega f* ; 


: degrees Ve 
{‘] rad>deg is rad> 
['] deg>rad is >rad ; 


: rad>grd \ radians == grades 
6 r>g rega f* ; 


: grd>rad \ grades == radians 
: -5 g>r regd f* ; 


: grades \.== 
['] rad>grd is rad> 
['] grd>rad is >rad ; 


: (trigo) \ ad i -- ad 
dup XxS y >>= ys x >>= 
z over q yÿ ys x xs minYZ 
jf = += -= 
else += -= += 
then ; 
: trigo \-- 
zt2 gw 1+0 
do ji (trigo) 2+ \ i trace 
Loop drop \ g trace 
LA 
\ x --> Kt*{x*cos(z) - y*sin(z)] 
\ y --> Kt*[yÿ*cos(z) + x*sin(z)] 
\z-->0 {rotating} 
: (atg) \ == zs+Atan(y/x) 


vectoring y rw 0 skip nip 
if z zS := trigo 
then 0 z regû rad> ; 


: fatan \ f == Atan(f) 
y reg! x 4 /4= dup O< 
if negate y 


\ how many digits do you 
\ want ? Try SMB=100 


\ used by inverse trigo 
\ functions 


used by direct trigo 
functions 


er 


set radians as default 
unit for trigo funct. 


Pie al 


\ multiply by 59.296... 


\ multiply by 0.01745... 


\ set degrees as default 
\ unit for trigo funct. 


\ multiply by 63.662... 


ee 


multiply by 0.01571... 


set grades as default 
unit for trigo funct. 


er 


Trigo elem. Rotation 
#xS=Y>>i *ys=x>>i 
select rot.direction 
X-ExS y+=ys z-=ad 
X+=XS y-=ys z+=ad 
with: *ad=Atan(1>>i) 


RE 


Trigo complete Rot. 
for i:0 to gw 
TrigRot:zt[i] 


x --> Kt*sqr(x*x+y*y) 
y --> 0 {vectoring} 
z --> ztAtan(y/x) 


\-- yo0 


\ inverse trigo tangent 
\ -- e e<0 \ y=m f=m<e 
Vif yel: x=1 y=mw>-e 


else x \ else xzl>>e y=m 
then dup >>= \ x and y aligned 
zs clear (atg) ; \ == Atan(y/x) 
: (s>c) \f== \exit:x=sqr(1-f"2) y=-f 
fdup0= 
if  fdrop zs clear y 4 /4= Vif f=0: zs-0 y=1. 
else (?1-) dup 1 and \-- f<OE t/f \ zs=-|f| 
if  1- z >> \ if E odd: E-=1 z/=2 
then (ath) \ x=Kh*sqr(1-f°2)<<(E/2+1) 
2/ 1+ 12 1/Kh >>= \ -- f<0 E/2+1 \ z=1/2Kh 
YEXZ 1+ X y >>z \ -- f<0 \ x=sqr(1-f°2) 
if zs +/- 
then \ =- \ zs=-f 
ÿ 2S := \ y=-f 

then ; 

sqr[1-(1-m>E)"21 = sqr[(2+m-m>E)"2 - 
(2-m-m>>E)"21>>(E/2+1) 

: fasin \ f == Asin(f) \ inverse trigo sine 
(s>c) y +/- zs clear (Catg) ; \ == Atan(sgr(1-f°2)/f] 

: facos \ f == Acos(f) \ inverse trigo cosine 
(s>c) -1zs ztrw >>= (atg) ;  \ == pi/2-Asin(f) 

: fs>c \ f == sqr(1-f"2) \ sine <--> cosine 
(s>c) 0 x regû ; 

: (sct) \f==|--0Q \ for sin, cos, tan 
>rad 1 ztrw (z/mod) \ z=f-Q*pi/2 x=1/Kt y=0 
x 1/Kt := rotating trigo : \ x=cos(z) y=sin(z) 

\  Gmodé: 0 1 2 3 
\  cos(f) x -y -X y 
\  sinC(f) y x -y -x 

: (sc) \N-- |==f \ sin:N=Q cos:N=Q+1 
>r 0 r4 1 and \ -- O Nodd? | N 
if x \ if Nmodé=1or3 use r=x 
else y \ if Nmodé=20or4 use r=y 
then \--0r{N 
r> 2 and \ if Nmodé = 2 or 3 
if dup +/- \ negate r 
then rega ; \==f 

: fsin \ f == sin(f) \ trigo sine 
(sct) (sc) ; 

: fcos \ f == cos(f) \ trigo cosine 
€sct) 1+ (sc) ; \ cos(ftpi/2)=sin(f) 

: ftan \ f == tan(f) \ trigo tangent 
(sct) 1 and \ f=z+Q*pi/2 
If XY += y X-= X y += \ if Q odd: (x,y)=Cy,-Xx) 
then \ cos(f)=s*mx<<ex s°2=1 


\ sin(f)=s*my<<ey 
\ == (my/mx)<<(ey-ex) 


0 x norm negate y norm 
vectoring linear ‘1+ z regà ; 


trigo2 works Like trigo, but where trigo uses 1/Kt 
trigo2 uses ztl table to repeat elementary rotations 
such as to force the radius scaling factor to 2 


: trigo2 \-- \ as trigo, force Kt=2 
zt1 zt2 gu + 0 \ for i=0 to gw 
do over ca 0 \  repeat zt1[i] times 
do j Ctrigo) \ j trace \ TrigRot:ztli]l 
Loop \ -- rtti] ztlil 
swap 1+ swap 2+ À -- rtli+1] zt[i#1] 
Loop 2drop \ gw trace \ -- 
xprt \XY==RT \ Rectangular to Polar 
xy! vectoring trigo2 \ 2R=|x<<e| T=2+(x<0)*pi 
-2 y ztru >>= minY \-- e xy<0 \ y=pi 
if x +/- z y minz \ if x<0: correct x z 
if -= \ if 2>=0: z-=pi 
else += \ if z<0 : z+=pi 
then \zin{-pi,pil and x0 
then \ -- e \ R=(x/2)<<e T=z 
1- x reg 0 z regû rad> ; \ (R,0) rot T = (X,Y) 
: xyrot \XYT == x! 7"! \ Rectangular Rotation 
>rad 2 ztrw (z/mod) \ T=z+Q*pi 
rotating xy! \ -- Qe \X=x<<e Y=y<<e 
trigo2 1- >r 1 and À OX,Y) = 2*(X,y) rot z 
Tf x +/- y +/- \ if Q odd: negate x y 


then \-- Je-1 
ra x regd r> y regà ; XOX',Y D) = (X,Y) rot T 


\ Polar to Rectangular 
\ (X,Y) = (R,0) rot T 


1 rt>xy \RT=XY 
0 s>f fswap xyrot :; 


\ RARRHRRÉRARRRRRERÉÉLARÉRR RAR RER AR ÉRR 


\ INPUT /OUT PUT 


\ RRRARRRAARRR ER RÉRRAERRÉÉRRRÉERÉRIRÉRÉRÉR 


variable #places 
rw allot \ (0.5E-#places}>>5 


: places \n-- \ set #places 

dup #places ! 

negate s>f Ln10 f* (exp) negate \ -- e \ 10°-n = x>>e 

6 + #places 2+ x >>z ; \ comma right of MS byte 
6 places \ default 
: dig-buff 

here 64 + :; 


\ -- addr ; where we build F.P. string 


: ins-char \ addr char -- addr+1 


over ci 1+ ; 


: ins-dp \ addr -- addr+1 
ascii . ins-char ; 
: ins-0 \ addr -- addr+1 


ascii O ins-char ; 


: -Otrailing \ addr Len -- addr Len! ; remove trailing 0s 
dup 0 
?do 2dup + 1- ca ascii O <> ?leave 1- Loop : 


-- exp(10) 
\ assume sign is +ve 


: op-prep \f=z= 
bl dig-buff c!  fdup0= 
if  fdrop x clear 0 \ if f=0: -- O \ x=0 
else fsign \ else: use abs(f) 

if fnegate ascii - dig-buff c! then 

fln Un10 f/mod \ -- exp(10) 

(exp) negate \ -- e b \ f=s(x<<b)Ed 

5 + x dup >>= x #places 2+ +=  \ -- e \ round x 
[XrW+ 2- ] Literal à  :\ comma right of MS byte 
[ 10 256 * ] Literal = 


if 1+ \ if x=10 (after round) 
256 [ x rw + 2- ] Literal ! \ -- e \ x=1 
then 
then :; \ -- exp(10) 
: m-digs \ addr n -- addrtn \ convert n next digits 


0 \ Cfrom x to addr) 
?2do [x rw + 2- ] literal à \ pick up high word 
tuck flip 15 and \extract high digit 


ascii 0 + ins-char \ make ascii, and stash 

swap 255 and \ clear high digit 

[ X rw + 2- ] literal ! \ and multiply by 10 

-2 XS X >>= X XS += x dup += \ (decimal shift) 
loop  ; 

: Ce. \f == | -- addr Len \ format +d.ddddddE+dd 

op-prep \ form exponent 
dig-buff 1+ 1 m-digs ins-dp \ st digit & d.p. 


#places à m-digs 
base à >r decimal 


\ next digits 
\ save base, set decimal 


swap dup \ -- addr exp exp 
abs 0 \ abs value of exponent 
<# # #s rot O< \ min two digits 


\with signe&E 

\ i.e. E+dd 

\ copy characters 

\ incrementing address1 
\ change to addr & Len 
\ restore base 


if ascii - else ascii + then 
hold ascii E hold 
#> bounds 
do ï c@ ins-char Loop 
dig-buff tuck - 
r> base ! ; 


: Cf.) \ f == | -- ad ent 
op-prep dig-buff 1+ 
over -3 #places @ between 


\ free format 
\-- e addr 
\ display w/o exp? 


if over 0< \ leading zeros? 
if ins-0 ins-dp \ Leading zero & d.p. 
swap abs 1- 0 \ calc. zeros after d.p. 


?do ïins-0 Loop 
#places à 1+ m-digs \ significant digits 
else \ XXX.YY = X.XXYYE2 


variable fpl 


over 1+ m-digs ins-dp  \ 10..99 == F1 
#places à rot - m-digs \ digits after d.p- 
then \ -- addr 
dig-buff tuck - -Otrailing  \ -- dig-buff Len 
\ 

\ 


else display with exponent 
1 m-digs ins-dp first digit and d.p. 
#places à m-digs \ digits after d.p. 
dig-buff tuck - -Otrailing + \ remove any zeros 


swap dup abs 0 \ abs value of exponent 
base 9 >r decimal \ switch to decimal 
<# #s rot O< \ min 1 digit 
if ascii - hold then \ with sign if neg 
ascii e hold \ i.e. ef-]d{d} 
#> bounds \ copy characters 
do ïi c@ ins-char Loop \ incrementing address 
dig-buff tuck - \ change to addr & Len 
r> base ! \ restore base 
then : 
: e. \f=z \ format with E +space 


(e.) type space ; 


ser \f==|n-- \ format with E in field 


Ce.) rot over - spaces type : 


sf. \f== 
(f.) type space ; 


\ format w/o E +space 


sfr \f==/n-- 
Cf.) rot over - spaces type : 


\ format w/o E in field 


\ floating point location 


: float? Vessfl 
fpl à -32768 <> ; 


: fnumber? \ ad -- true 


== f ; when float? true 
\ad-- dfl | == 


;: when float? false 
dup 1+ ca ascii - = dup >r - \-- ad |s 
-32768 fpl ! -1 dpl ! © 0 rot \-- ud ad |s 


begin convert \-- ud ad | s 
float? if dpl à negate fpl +! then 
dup ca 44 47 between \ ascii ,-./ 
while dup ca ascii . = if O fpl ! then 


0 dpt ! 
repeat 
-rot r> if dnegate then rot \ -- d'ad 
dup ca Uupc ascii E = \ -- d ad ?E 


if  dup 1+ ca dup ascii - = >r ascii + = rà or - 


0 dpl ! OOrot convert \ -- d ud ad 
nip swap r> if negate then \--dadn 
fpl float? if +1 else ! then \ -- d'ad 
then 
ca bl = 


dup float? and 

if base 9 10 <> abort!' base must be decimal" 
state à abort" use F# in compilation! 
-rot d>f fpl à ?dup if s>f falog f* then 

then ; 


: fnumber \ ad -- | == 
fnumber? not ?missing : 


: Cf#) \ ad -- true | == f ;or  \ convert into float 
\ ad -- false \ even if integer 
fnumber? dup float? not and if -rot d>f then ; 


: f#in \ -- 3 | == f ;or 
\-- 0 
query bl word (f#) ; 


\ input number, force 
\ conversion into float 


: f# \ == f jexec 
\ == ; COMP 
bl word state Q >r state off \ hack the state 
Cf#) r> state ! \ to avoiq 


#LITERAL 


not ?missing 
state à 
if [compile] fliteral 
then ; 
immediate 


\ F#' reads next number in tib, forces it to float 
\ and returns it or compiles it (F# is state smart) 


11 


12 


: f.s == 
fp0Q fp à - ?dup 


\ dump the fp stack 


if cr .N! top" 0 
do cr \ for each stack item: 
1 (fpick) e. \ print in E format 
fp à i + \ -- itemAddr 
dup 2+ m. \ print mantissa in hex 
M <<? \ print binary exponent 
Sw +lLoop 
else cr ." Empty F.P. stack" 
then cr :; 
: fstatus \.:=s \ display the prompt 
status? à if base à >r decimal \ (for defer status) 
<# rà 10 <> \ if base<>10 
if ro O#s 2drop ascii : hold 
\ display it after : 
then 
fp0Q fp à - sw / O0 #s ascii . hold 


\ fp stack depth after . 


depth 2- ?dup \ if int.stack depth<>0 


if 0 #s 2drop  ascii - hold 
\ display it after - 
then \--d 
#> type space \ K-int.float:base 


r> base ! then cr ; 


also forth definitions Vin forth dictionary 
: floats \-- 
[*] fnumber is number 
['] fstatus is status ; 


\ enable FP input 
\ and float prompt 


: integers \-- 
['1 (number) is number 
[1] (status) is status ; 


\ disable FP input 
\ and normal prompt 


previous definitions \ return into f-pack 


EOF 
\ RAR HON HN NOA AC ACHAT RAA AA AAA 


\ IEEE 32 bits (80287 32 bit fp) 


\ ACKHOR HONNEUR AAC ACER AAA A AR 


\ bit31 = mantissa sign (negative:1 else:0) 

\ bit30-23 = biaïsed binary exponent (bias = 128) 

\ bit23-0 = mantissa normal ized magnitude, 

\ comma Left of bit23-1, masked by exponent Lsb 


: f32array  \ dim -- ;comp \ array of f32 variables 


\ index -- addr ;exec \ to use with f32! f32a 


create 4 * allot 
does> swap 4 * + ; 
: f321 \ ad -- | f == \ store 32bit float 

fdup0= 

if 4 erase \ zero: all zeroes 

else 0 fsign \ -- ad 0 f<0 
if fnegate drop 256 \ separate sign/modulus 
then \ then biaïse exponent: 
x reg! 128 + \ -- ad s be (f=*x<<e) 


dup  -256 and 2 ?ferror \ check over/underflow 
+ x 24 round 5 x dup >>= \ -- ad sbe (align Lsb) 
128 * [Lx rw +2- ] Literal à \ -- ad sbe hin 
127 and or over 2+ y! \ make and store hi 
CL X rw +4 - ] Literal 9 swap w! \ store Lo 

then ; 


: f32Q \ ad -- | == 
x clear 
dup wa [x rw + 4 - ] Literal 1! 2+ \ -- ad+2 
w@ 0 128 um/mod swap 128 or \ -- sbe H \ unmask msb 
[x rw+2- 1 literal ! 
dup 256 and if x +/- then 
255 and [ 5 128 - ] literal + 
x rega : 


\ fetch 32bit float 


\ sign mantissa 
\ unbiaise exponent 
\ normalize and push 


\ LL LES LES SEE SES SSL TS LES ST SSL LS LES SELS SL) 


\ IEEE 64 bits (80287 64 bit fp) 


\ AOROK KR RER AOK A ROM ON MR RAR OR ARR RANÉ 


\ bitéz = mantissa sign (negative:1 else:0) 

\ bité2-52 = biaiïised binary exponent (bias = 1024) 
\bit52-0 = mantissa normalized magnitude, 

\ comma left of bit52=1, masked by exponent Lsb 


: fé4array \ dim -- ;comp \ array of f64 variables 
\ index -- addr ;exec \ to use with f641 f64a 


create 8 * allot 


does> swap 8 * + ; 
: f641 \'ad -- | f == store 32bit float 
fdup0= 


\ 
if 8 erase \ zero: all zeroes 
else 0 fsign \ -- ad 0 f<0 
if fnegate drop 2048 \ separate sign/modulu 
then \ then biaise exponent: 
x reg! 1024 + \ -- ad s be (f=*x<<e) 
dup -2048 and 2 ?ferror \ check over/underflow 
+ x 53 round -- ad sbe (align lsb) 
16 * [x rw+2- ] Literal @ \ -- ad sbe hiw 
15 andor over 6 + w! \ make and store hi 
[ x rw +8 - ] literal 9 over wl 2+ \ -- ad+2 
[ x rw + 6 - ] Literal à over wl 2+ \ -- adr4. 


ed 


[x rw +4 - 1] literal à swap y! Ne 
then ; 
: f64a \ ad -- | == \ fetch 32bit float 
x clear 
dup wa [ x ru + 8 - ] literal ! 2+ \ -- adr2 
dup wa [ x ru + 6 - ] literal ! 2+ \ -- adt4 
dup wa [ x rw + 4 - ] Literal ! 2+ \ -- adté 


wa O 16 um/mod swap 16 or 
\ -- sbe H \ unmask msb 
[x rw+2-7] literal ! 
dup 2048 and if x +/- then 
2047 and 1024 - 


x regà ; 


\ sign mantissa 
\ unbiaise exponent 
\ normalize and push 


\ CLELLESLEEESLEES SELS S SES LES S LES SR LL LEE 3 


\ PERFORMANCE MEASUREMENTS 


\ repeat n times the next word in TIB 
\ CUTTLTLESSLELLLLELEELLELELELE SELS LE ES LES] 


: monadic \f==f|n--  \ 1000 monadic fsqr 
‘ swap 0 do \ for FSQR FLN FALN FLOG 
fdup dup execute fdrop \ FSIN FCOS FTAN ... 


loop drop 7 emit ; 
: diadic \ fa fi == #f2f1 | n -- \ 1000 diadic f* 
! swap O0 do \ for F+F- FX F/ FX* 
fover fover dup execute fdrop 
loop drop 7 emit ; 


: complex \ f2 f1 == #2 f1 | n -- \ 1000 complex xy>rt 
! swap 0 do \ for XY>RT RT>XY 
fover fover dup execute fdrop fdrop 
loop drop 7 emit ; 


EOF 
PPTETIILILI LILI ICILILLLLILLLLLLLLLLELLLLELI 


CORDIC main functions and user interface 


FP STACK 

A separate stack is used for floats; this avoids mixed 
stack handling operators, and allows parallel integer and 
float computations. Integer and float stacks may 
comunicate with: 

S>F or D>F to convert single or double 
float, 

SINT or DINT to convert float into single or double 
integer (where NEAREST or TRUNCATE fix the rounding 
policy) 


integer into 


FLOAT INPUT FORMAT 

Float number input must be in decimal; mantissa input is 
Limited to 32 bits (9 decimal digits max) exponent input 
is Limited to 15 bits (4 decimal digits max); (accuracy 
actually depends on SMB and on memory ops chosen). 

Float number must have at least a "." or a ME" (or le"): 
when no ME", M, produces a float, "," produces a double 
examples: 12.34 -123. .123 1.234E3  -1234e+2 

12,34E-15 

Inside a definition, a float Literal must be preceeded by 

F#: outside, F# may be avoided by executing FLOATS; 
INTEGERS undoes what FLOATS did (it restores deferred 
words). 


{11 YOU MUST EXECUTE INTEGERS BEFORE FORGETTING CORDIC !11 


FLOAT OUTPUT 

PLACES controls the number of mantissa digits to output 
(the maximum significant value you may give to PLACES is 
echoed while compiling CORDIC). 

F. prints îts argument in natural “free” format (12.3) 

E. prints Îts argument in “exponential" format 
(1.230000E+01) 

F.R and E.R print their argument right justified as does 
R 


FP FUNCTIONS NAMES 
Most fp functions have their integer equivalent; their 
name Îs built by prefixing their integer equivalent with F 


CFDUP FSWAP FROT ... F+ F- F* F/ ... F. F.S FSTATUS ...) 
TRIGONOMETRIC UNITS 
Trigonometric functions have built in  deferred 


conversions, allowing their arguments (or result) to be 
expressed in RADIANS DEGREES or GRADES (3.14rad = 180deg = 
200grd); (execute theese words to set the angle unit you 
wish). 

RAD>DEG DEG>RAD RAD>GRD GRD>RAD do explicit conversions. 


LISTING: CORDIC.VOC 


FARRREE  CORDIC VOCABULARY GLOSSARY  #kkkkkkrx 


Floating Point package with sizable accuracy 
STACK NOTATIONS: 
==f) denotes float stack effect 
{n--|=zf) denotes integer and float stacks 
effects 
FP STACK HANDLING 
FDROP FNIP FDUP FOVER FPICK FSWAP FROT FROLL 
F.S FSTATUS 
LOGIC 
FDUPO= FSIGN FO< FO= FO> F< F= F> ?2FERROR 
INTEGER AND STRING CONVERSIONS 
D>F S>F DINT SINT NEAREST TRUNCATE 
PLACES F. F.R E. E.R 
FLOATS INTEGERS FLOAT? FNUMBER? FNUMBER F# F#IN 
ARITHMETIC 
FNEGATE FABS FMAX FMIN F+ F- F* F/ F1/ F/MOD 
FFRAC FINT 
HYPERBOLIC 
FSQR FLN FALN FLOG FALOG F** 
FSINH FCOSH FTANH FATANH 
TRIGONOMETRIC 
FSIN FCOS FTAN FASIN FACOS FATAN FS>C RT>XY XY>RT 
XYROT 
RAD>DEG DEGREES DEG>RAD RADIANS RAD>GRD GRADES 
GRD>RAD 
MEMORY 
Fa F1 F32Q F321 F649 F641 
F, FLIT FLITERAL FCONSTANT FVARIABLE F*ARRAY 


?FERROR  (b,n--) if b=TRUE, give the nth fp error : 
0 empty FP stack concern most fp words 
1 full FP stack concern most fp words 
2 conversion overflow SINT DINT F32t F641 
3 overflow concern most fp nords 
4 underflow concern most fp words 
5 divide: arg=-0 F/ F1/ F/MOD FFRAC 
6 logarithm: arg-0 FLN FLOG F** 
7 Logarithm: arg<0 FLN FLOG F**x 
8 square root: arg<0 FSQR 
9 asin/acos/atanh: [arg|>1 FS>C FASIN FACOS FATANH 
D>F (d--[==f) convert double (from integer stack) to 


float (on fp stack) "conversion overflout error if float 
too big for a double 


DEG>RAD (f=cf!) f in degrees is converted into f' in 
radians (180deg=3. 14rad) 


DEGREES (--) set Degree mode for all trigonometric 
functions 
DINT Cf==|--d) convert float (from fp stack) to double 


(on integer stack) 

E. Cf==) print f in exponential format, ex: 
3.141593E+00 with as many fractionals digits as was set 
using PLACES 


ER (n--[f==) print f in exponential format (see E.) 


right justified in a field of n characters (as R does) 


FI Cad--[f==) store f as is on the fp stack, at 
address ad 
F# exec:(==f) convert next word in input stream 


into a float comp:(==) if compiling, compile it as a 
float literal "is undefined! error if unable to convert 


F#IN ==f|--TRUE) query text (until cr) and convert 
it to a float 

(==}--FALSE) if conversion fails, push onty 
FALSE flag 
F* Cf2,f1==f) f=f2*f1 multiply fp stack second by 
top 
FXx Cf2,f1==f) fsf2"fl=exp(fl*ln(f2)) raise f2 to 
the power f1 

“logarithm: arg-0" error if f2=0, "Logarithm: 


arg<O" if f2<0 
FXARRAY  (wn...wi,n <name> -- 3 in...i1--ad) 

compiles multidimensionnal arrays of floats (in 
Stack format); when compiling, pop n, then n array 
dimensions (wi>1), and allot Space for wn*...w2*w1 floats 
(be carefull with memoryl); when executing, Pop n array 
indexes (each ii should be O<=ii<wi), and return the 
adress of the corresponding float (for FA or F1) 


F+ Cf2,f1==f) f=f2+f1 add fp stack top to second | 
F, Cf==) compile f as a float Literal 

F- (f2,f1==f) f=f2-f1 subtract fp stack top from 
second 

F Cf==) print f in free format, ex: 3.141593 0.5 


1000. with a maximum of n+1 digits for n PLACES (n=6 in 
examples) 


F.R Cn--[f==) print f in free format (as F.), 

right justified in a field of n characters (as 
R) 
F,S (==) dump fp stack (as .S dumps integer stack) 


each item is printed in exponential format and 
in internal format (full mantissa in hex, <<, and signed 
binary exponent in decimal) 


F/ (f2,f1==f) f=f2/f1 divide fp Stack second by top 
"FP divide: arg=0" error if f1=0 


F/MOD Cfe,fi=2r|--q) f2=f1*q+r return integer quotient 
and float remainder of f2/f1; r sign = f1 sign (as for 
/MOD) "FP divide: arg-0" error if f1=0 


FO< Cf==]--b) b=TRUE if f negative, else b=FALSE 
FO= Cf==]--b) b=TRUE if f null (f modulus less than 
2°-16384 = 10°-4932) 
FO> Cf==|--b) b=TRUE if f positive, else b=FALSE 
F1/ (f==f!) f'=1/f reciprocal of fp stack top 

"FP divide: arg=0" error jf f=0 
F32! Cad--|f==) store f as à 32bits IEEE float, at 
address ad 
F32à Cad--|==f) fetch f as a 32bits IEEE float, from 
adress ad 
F64! Cad--[f==) store f as a é4bits IEEE float, at 
address ad 
F64a Cad--|=2f) fetch f as a éébits IEFE float, from 
address ad 
F< Cf2,f1==]--b) b=TRUE if f2 is Less than f1, else 
b=FALSE 
F= Cf2,f1==|--b) bETRUE if f22f1 [f2-f1] < 


2°-16384 = 10°-4932 ) 
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F> cf2,f1==|--b) b=TRUE if f2 is greater than f1, 
else b=FALSE 

FQ (ad--|==f) fetch f Cin stack format) from adress 
ad 

FABS cf==f') f'=|f| negate fp stack top if negative 
FACOS (f==f") f'=Acos(f) <=> f=cos(f'} inverse 


trigonometric cosine 

return f' in the current angle unit (ex: DEGREES) 
in range [0,180] “asin/acos/atanh: [argl>1" error if f 
modutus greater than 1 


! FALN cf==ft) f'zexp(f)ze"f <=> f=ln(ft) natural 
exponent iation 
FALOG Gf==f") f'=10"f <=> f=log(f') decimal 
exponentiation 
FASIN cf==f') f'=Asin(f) <=> f=sin(f!') inverse 


trigonometric sine return f' in the current angle unit (ex: 
DEGREES) in range [-90,90] “asin/acos/atanh: |arg[>1" error 
if f modulus greater than 1 


FATAN (f==ft) f'=Atan(f) <=> fstan(f') inverse 
trigonometric tangent return f! in the current angle unit 
(ex: DEGREES) in range [-90,90] 


FATANH (f==f') f'=Atanh(f) <=> f=tanh(f') inverse 
hyperbolic tangent hasin/acos/atanh: larg|>1" error if f 


modulus greater than 1 


FCONSTANT Cf <name> == ; ==f) compile a float constant 


FCOS (f==ft) f'=cos(f) trigonometric cosine 
takes f in the current unit (RADIANS DEGREES or 
GRADES) 
FCOSH cf==ft) f'=cosh(f)=Cexp(f)rexp(-f))/2 hyperbol ic 
cosine 
FDROP (f==) drop fp stack top 
FDUP «f==f,f) duplicate fp stack top 
FDUPO= €f==|--b) b=TRUE if f null Cf modulus Less than 


2°-16384 = 10°-4932) 


FFRAC çf2,fi==f) fractional remainder of f2/f1; f sign 
= f1 sign (as /MOD) "FP divide: arg=0" error if f1:=0 
FINT (f==f) float integer part of stack top 
FLIT ==f) word compiled by FLITERAL (as LIT is 
compi led by LITERAL) 

DON'T TRY TO INTERPRET IT 


FLITERAL (f==) compile a float 
compiles an integer) 
IMMEDIATE : USE ONLY IN COMPILATION MODE 


literal (as LITERAL 


FLN cf==ft) f'=ln(f) natural Logarithm (ln(e)=1) 
“logarithm: arg=0" error îf f=0; “Logarithm: 


arg<0" error if f<0 


FLOAT? Ç--b) b=TRUE if last number input was a float, 
else b=FALSE 


FLOATS (==) allows direct input of float Literals 
(without F#) F# must still be used in compilation mode ( 1 
should be modified) 

INTEGERS must 
CORDIC VOCABULARY 


be executed BEFORE FORGETTING 


FLOG «f==ft) f'=log(f) decimal logarithm (log(10)=1) 
“logarithm: arg=0"* error if f=0; “Logarithm: 


arg<0" error if f<0 


FMAX cf2,fi==f) f=Max(f1,f2) return greater of f1 and 
f2 
FMIN cf2,fi==f) f=Min(f1,f2) return lesser of f1 and 
f2 


FNEGATE  (f==f!) f'=-f negate fp stack top 
FNUMBER convert next word in input stream into a double 
or float 


if FLOAT? returns TRUE (==f), mis 
undef ined'! error 


if conversion failed 


else (--d); 


FNUMBER? 
or float 
if conversion failed (--FALSE), else : 
if FLOAT? returns TRUE 2=f|--TRUE), 
(--d, TRUE) 


convert next word in input stream into a double 
else 


FOVER cf2,f1==f2,f1,f2) duplicate fp stack second 


FPICK n--|fn,.….,fO==fn,...,f0,fn) duplicate the 
€ntlth fp stack entry 


FROLL en--]fn,fn-1,...,f0==fn-1,...,f0, fn) rotate nr1 
fp stack tops 


FROT (f3,f2,f1==f2,f1,f3) rotate fp stack top, second 
and third 
FS>C cf==ft) f'zsqr(1-f*f) <> [f=sin(a) => 


f'=cos(a)] "asin/acos/atanh: [arg[>1" error if f modulus 
greater than 1 


FSIGN cf==f{--b) b=TRUE if f negative, else b=FALSE 


FSIN cf==f') f'=sin(f) trigonometric sine 
takes f in the current angle unit CRADIANS 
DEGREES or GRADES) 


FSINH Cf==ft) f'=sinh(f}=Cexp(f)-exp(-f)/2 hyperbolic 
sine 
FSQR cf==f") f'zsqr(f) <=> f=f'*f! square root 

UESQR arg<0" error if f<0 
FSWAP Cf2,f1==f1,f2) swap fp stack top and second 
FTAN cf==f") f'=tan(f}=sin(f)/cos(f) trigonometric 
tangent: takes f in the current angle unit  (RADIANS 


DEGREES or GRADES) 


FTANH cf==f!) fiztanh(f=sinh(f)/cosh(f) hyperbolic 


tangent 


FVARIABLE (<name> -- ; --ad) compile a float variable, for 
use by Fa or F1 


GRADES (--) set Grade mode for all trigonometric 
functions 
GRD>RAD cf==f') f in grades is converted into f' in 


radians (200grd=3.14rad) 
INTEGERS (--) undo what FLOATS did 


(--) set rounding policy for float-to-integer 
before its fractional 


NEAREST 
conversions (0.5 is added to a float 
part îs truncated) 


PI (==3.14...) push the famous constant onto the fp 
stack 


PLACES {n--) set the number of digits to display by the 
words F. F.R E. E.R 


RAD>DEG cf==ft) f in radians is converted into f' in 
degrees (180deg=3.14rad) 


RAD>GRD çf==f') f in radians is converted into f' in 
grades (200grd=3.14rad) 


RADIANS (--) set Radian mode for all trigonometric 
functions 
RT>XY (R,A==X,Y) convert à complex number from polar 


(Radius, Angle) to rectangular (x,y) form x=R*cos(A), 
y=R*sin(A). A is taken in the current angle unit (RADIANS 
DEGREES or GRADES) 


S>F (n--|==f) convert single (from integer stack) to 
float (on fp stack) 


SINT (f=={--n) convert float (from fp stack) to single 
(on integer stack); “conversion overflour error if float 
too big for a single 


TRUNCATE  (--) set rounding policy for float-to-integer 
conversions (truncation is also called "rounding to minus 
infinityt) 


XY>RT (X,Y==R,A) convert a complex number from 
rectangular (x,y) to polar (Radius,Angle) form : 
R=sqr(x*x+y*y), Azatan(y/x) in range C-PI,PI] 

A is returned in the current angle unit (RADIANS DEGREES or 
GRADES) 


XYROT CX;Y,A==X1,y!) rotate a complex number (x,y) by 
the angle A: X'=X*cos(A)-Y*sin(A), Y'=x*sin(A)+y*cos(A): A 
is taken in the current angle unit (CRADIANS DEGREES or 
GRADES) # 


TELEMAT IQUE 


CONTENU DU FORUM SAM*JEDI 


SECRETAIRE Du 10.02.89 A 09h46 
NOUVEAUX SOFTS EN TELECHARGEMENT : 

EN FORTH: 

1) UTILMENU.FTH menus deroulants 


3) PI.FTH calcul de PI jusqu'a 22000 decimales. Un 
regal de matheux. 
SYRACUSE.FTH Les suites de SYRACUSE, se referer a 


l'article a paraître dans JEDI 49 (Livre dans une semaine). 
4) DOSEDIT.FTH editeur de commandes DOS applique au 
tampon d'entree TURBO-FORTH. 


EN C: 
XRECV.C reception xmodem 
XTRANS.C emission xmodem 


DIVERS: 

QUICKCRT.COM affichage ecran plus rapide. Efficace sur 
PC XT a 4,77 Mhz d'horloge. 

MAPMEM.COM carte memoire ecran. Permet de connaitre La 
position memoire des progs residents. 

SFIND.COM recherche de fichier a travers divers 
repertoire. Utile si Vous avez beaucoup de sous-repertoires 
sur disque dur. 


SECRETAIRE Du 10.02.89 A 09h55 

A PARTIR D'AUJOURD'HUI VIENT D'ETRE MIS en place La routine 
de telemaintenance des BALs. Si vous avez perdu votre code 
d'acces, contactez-moi en laissant vos coordonnees dans ma 
bal ou en m'appelant au 1-49856367 hdb. 


Le choix EXPEDITION COURRIER AU SYSOP a egalement ete 
active. Tout courrier expedie au SYSOP tombe dans ma BAL. 
Donc, ne cherchez plus mon no de BAL dans l'annuaire pour 
m'ecrire, Vous gagnerez du temps si vous ne vous 

adressez qu'a moi-meme. 


SECRETAIRE Du 10.02.89 À 10h03 
QUELQUES MOTS SUR LES ACTIVITES TELEMATIQUES DE JEDI: Le 
trafic 3615 SAM*JEDI est en Progression reguliere et 
atteint Une moyenne journaliere de 120 minutes, 
C'est encore insuffisant Pour  amortir l'abonnement 
TRANSPAC, maïs c'est encourageant. Je n'ecris pas ca pour 
VOUS pousser a consommer du 3615, mais plutot pour vous 
feliciter de votre fidelite et de La correction qui regne 
sur ce serveur. 
Dans l'ensemble, Le niveau des messages contenus dans le 
FORUM est tres eleve, meme si certaines semaines j'ai un 
peu l'impression d'etre seul. 
Je rappelle encore une fois que ce forum vous permet de 
poser toutes Les questions sur Le Langage FORTH pour Les 
versions suivantes : 

- TURBO-Forth PC 

= FORTH LAXEN ET PERRY MSDOS 

= FORTH LAXEN ET PERRY CP/M (Amstrad) 

+ Un peu FORTH LMI 


=__NOVIX NC4016 et HARRIS RIX 2000 (qui disposera industriel (ou plusieurs), ne sorte(nt) pas un produit 
CA plusieurs), ne sorte(nt) pas un prod 


ï nn D Te 
prochainement d'une Sous-rubrique dans le telechargement 
FORTH). 


Plus que sur dautres serveurs, nous nous contraignons a 
repondre Le plus completement possible et dans des delais 
raisonnables a toutes vos quest ions. 


Bien entendu, si vous-meme voulez repondre a une question 
posee sur le forum, vous pouvez le faire. Parfois 
plusieurs avis Valent mieux qu'un seul. 


Et pour finir, nous reclamons votre indulgence si nous ne 


FORTH7 Du 11.02.89 A 15h27 

BOUQUINS: Les Quick Reference Guides de Microsoft Press 
Sont de vraies mines pour Les programmeurs: PSI a La bonne 
idee de les traduire en francais. 


Saviez-vous que Ray DUNCAN, celui de BYTE, de ‘"MS-Dos 
Avance!" et de ces guides travaille en FORTH ? 


Ray a declare a la derniere 88 Forth Convention que FORTH 
lui a fait gagner 6 a 8 mois sur d'autres auteurs pour 
Sortir un guide OS/2 chez Microsoft Press! Il n'a pas dit 
combien de dollars... 


Le 19 Novembre 1968, Le premier FORTH disait !OK' sur une 
console d'IBM 1130. 20 ans apres Charles MOORE, Chuck pour 


les intimes, a toujours La frite: Forth doit continuer 
d'evoluer sans trop se preoccuper des efforts de 
Standardisation car c'est sa grande force sur tous les 
autres langages! Et de nous livrer une reflexion digne du 
pere, du Forth: 

- La documentation d'un Programme devrait pouvoir etre 
redigee en parallele avec la Programmation selon des 
techniques interactives similaires... 

Duncan, Moore: on en revient toujours a La ‘DOC! veritable 
nerf de la guerre! (=Nouvel appel pour des doc-redacteurs 
de TURBO-FORTH. ..) 


DANELUZZO Du 12,02.89 À 15h28 
LE SYSTEME DE DEVELOPPEMENT DU RTX2000 EST RELIE AU PC PAR 
LIAISON SERIE. N'EST-IL PAS PLUS INTERESSANT D'AVOIR UN 


NUMERIQUE DEJA SUR LE BUS. 


IAPX DU 12.02.89 À 19h58 

KERMITPC.C S'EST CORRECTEMENT CHARGE EN ASCII SUR PC AVEC 
CARTE MODEM PNB. À LA COMPILATION AVEC TURBO C BORLAND 
V1.5 BEAUCOUP DE PROBLEMES MAINTENANT RESOLUS. MANQUE 
SEULEMENT LE FICHIER HEADER MSGTTY. HU --- COMMENT SE LE 
PROCURER? EST-IL DISPONIBLE SUR CE SERVEUR? IL SERAIT 
DOMMAGE DE PERDRE, OUTRE LE TELECHARGEMENT, LE TEMPS DEJA 
PASSE À L'ADAPTATION A TURBO C. UNE REPONSE RAPIDE 
M'OBLIGERAIT... MERCI 


SECRETAIRE Du 13.02.89 À 09h50 
REPONSE A DANELUZZ0, sujet RTXDS HARRIS: Oui, a notre 
sens, Le systeme de developpement HARRIS par liaison serie 
est discutable. Mais HARRIS a Surtout tenu à ne pas 
privilegier Le developpement sur PC ou compatible. 
Pour repondre a votre demande, il existe une solution, La 
Carte SC/FOX equipee du HARRIS RTX 2000 et qui est 
l'equivalent de La carte NB4100 de NOVIX: 

- memoire integralement accessible par Le PC. 

- travail en // avec PC hote. 

- inclus Un compilateur FORTH. 
Livraison en deux semaines, prix unitaire 195$, accompte 
a La commande 200$ a verser a: 

SILICON COMPOSER INC. 

210 California Ave., Suite K, 

Palo Alto CA 94306 (USA) 

Tel: 19-1-415 322-8763 (depuis la 

France). 


Une remarque personnelle en Passant: Le prix d'une tetle 
carte nous semble eleve et si Le HARRIS RTX 2000 est aussi 
prometteur qu'il y parrait, il serait etonnant qu'un 
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equivalent a moindre cout. 


Alors petits JEDIS malins, si 
derriere JOBS et WOZNIAK, il y a encore deux places a 
prendre sur La banquette arriere de La legende des 
precurseurs de La micro- informatique. 


vous etes bricoleurs, 


SECRETAIRE Du 13.02.89 A 10h13 

REPONSE A IAPX: Desole, mais nous n'avons pas SGTTY.H dans 
nos disquettes. Le logiciel KERMITPC a ete ecrit 
initialement pour C MICROSOFT (il semble...) et 
naturellement, SGTTY.H ne figure pas dans Le package TURBOC 
de Borland. Nous prenons note de vos deboires et eviteront 
desormais de mettre en telechargement des logiciels 
necessitant l'exploitation de modules non disponibles sur 
le serveur. 

Mais si vous reussissez a adapter Le fichier KERMITPC a 
TURBOC, nous sommes preneurs pour Le mettre en 
telechargement. 


DANELUZZ0O Du 13.02.89 À 12h57 
UNE CARTE A RTX2000 EST DISPONIBLE PAR UNE AUTRE BOITE. 
SMIS 
130 ELM STREET 
CAMBRIDGE MA 02139 
617 354 7541 
ELLE EST LIEE A DES CARTES D'AQUISITION DE DONNEES OU 
IMAGES. DISPOSE DE 'C' FORTH ET ASSEMBLEUR. JE NE SAIS PAS 
SI ELLE VAUT MOINS DE 1990$ ENCORE 


IAPX Du 13.02.89 À 22h25 
REPONSE À : REPONSE DE "SECRETAIRE" À IAPX LE 13.02.89 


- VOUS  TERMINEZ VOTRE  REPONSE PAR:  MAVEC VOTRE 
INDULGENCE. . ." 
VOUS N'AVEZ AUCUNEMENT BESOIN D'INDULGENCE: JE TIENS A 


VOUS DIRE: BRAVO. EN EFFET, VOUS DITES VOUS MEME DANS UN 
DES MESSAGES DU FORUM "NOUS SOMMES DES BENEVOLES". 

POUR AVOIR ESSAYE UN NOMBRE CERTAIN DE  SERVEURS 
INFORMATIQUES, JE CONSTATE QUE DES BENEVOLES PRODUISENT UNE 
QUALITE APPAREMENT HORS DE PORTEE DES "PROFESSIONNELS". 
2-REPONSE NON DILATOIRE --) ELLE EST TECHNIQUEMENT VALABLE 
- C'EST RARE SUR MINITEL 
3-VOUS N'ETES PAS RESPONSABLE DES FICHIERS HEADER (.H) 
CONTENUS DANS LES SOURCES --) TOUT AU PLUS POURRIEZ VOUS 
INDIQUER, DANS LES INFORMATIONS DE TELECHARGEMENT, LE 
COMPILATEUR QUI DOIT ETRE UTILISE (MARQUE, VERSION). 


SECRETAIRE Du 14.02.89 A 09h48 

À IAPX ET AUTRES FANAS DU TELECHARGEMENT: nous privilegions 
avant tout Le langage FORTH et plus particulierement TURBO- 
FORTH qui est notre creation. Les autres Logiciels 
disponibles en telechargement ne sont pas de notre cru, 
donc sans garantie. Notre logiciel de gestion des fichiers 
TELECHARGEMENT etant malheureusement tres restrictif, il 
n'est pas possible de documenter plus aïsement un 
programme. On nous a deja fait cette remarque, et 
conscients des desagrements que causent un logiciel "paye"! 
mais inexploïtable, on etudie un service GUIDE associe a 
chaque titre de La logitheque qui resumera en une page Les 
contraintes d'exploitation des logiciels. 


Notre but n'est pas de vous faire stationner dans un 
serveur ‘tortue, mais de renouer avec La tradition des 
RBBS americains ou L'on echange des infos et des programmes 
(publics domain et freeware). Notre satisfaction est plus 
grande de savoir que vous revenez regulierement pour nous 
consulter. Ici nous sommes entre copains devant le feu de 
cheminee et non derriere un tiroir caisse. 


D'ailleurs un conseil, pour ne pas rester trop longtemps 
branche sur SAM*JEDI, equipez-vous d'un cable MINITEL PC ou 
d'une carte MODEM et d'un logiciel de capture ASCII 
(PROCOMM, LCECOM, etc...) et revoyez a tete reposee nos 
messages sans alourdir votre budget. Mais en ce qui 
concerne IAPX c'est deja le cas je pense... 


ESTHETE pu 14.02.89 À 20h54 

VF83 NE COMPORTE PAS DE VOCS. DONC JE REGARDE DANS TF83... 
ET LA JE NE TROUVE PAS BODY> ? 

JE COULE..... MERCI BYE 


SECRETAIRE Du 15.02.89 A 11h00 
REPONSE A ESTHETE CONCERNANT BODY>. CE MOT PERMET TRES 
CERTAINEMENT UNE TRANSFORMATION DU TYPE CFA EN PFA OÙ 

INVERSEMENT. SUR LA PLUPART DES FORTHS, LE PFA EST SITUE 


IMMEDIATEMENT APRES LE CFA LEQUEL EST OBTENU PAR LE MOT ! 

CPRONONCER TICK); EX: 

" DUP  DELIVRE LE CFA DE DUP 
ENSUITE, >BODY TRANSFORME CE CFA EN PFA QUI EN TURBO-F83 
CORRESPOND A CFA+2. JE DEDUIS QUE BODY> SUR VF83 FAIT 
L'INVERSE. 


SECRETAIRE Du 15.02.89 A 11h08 
euroFORML CETTE ANNEE EST ORGANISE PAR LE FIG HAMBOURG ET 
SE PASSERA DU 13 AU 15 OCTOBRE 1989 A L'HOTEL SELAU PRES 
DE NUREMBERG (RFA). POUR PRECISIONS, CONTACTER: 

M.KERN c/o DELTA GmbH 

Roter Hahn 42 

D - 2000 HAMBURG 72 
OÙ TEL: 

19-49 40 644 5782 DEPUIS LA FRANCE. 
THEME DE CETTE ANNÉE: FORTH DANS LES APPLICATIONS EN TEMPS 
REEL ET SES POTENTIALITES EN ROBOTIQUE ET CONTROLE IDUST. 
de ten Me ee pee EE 
SECRETAIRE Du 17.02.89 À 13h19 
POUR DEBUTANTS EN FORTH: conversion degres fahrenheit en 
celsius et inversement: 

1: CF 9 5*/32+; 

: PC 32 -59%*/; 


CRFA/BRD) 


Exemple: 
: .TREMPE ( celsius ---) 
DUP 6 .R .M C M" C>F 6 .R .!" FM: 


: TREMPE-ACIER ( ---) 
CR ."" ROUGE FONCE "680 .TREMPE 
CR .'* ROUGE CLAIR 1 850 .TREMPE 
CR .'! ROUGE TRES CLAIR "! 
TT  — 
SECRETAIRE pu 17.02.89 À 17h22 
DES GRAPHES EN 2 COUPS DE CUILLER À POT: 
80 STRING ANNEES 
U JAN FEV MAR AVR MAI JUN " ANNEES $! 
u JUL AOU SEP OCT NOV DEC ANNEES 
APPEND$ 
: GRAPHE Ç n12 n11..n1 ---) 
DEPTH 12 < ABORT'" Manque de donnees! 
DARK 13 1 DO ANNEES I ITEM TYPE 
SPACE 220 REPLICATE CR LOOP 3 SPACES 
192 EMIT 72 1 
DO 1 5 MOD 0= IF 193 EMIT ELSE 196 EMIT 
THEN LOOP CR 2 SPACES 
71 0 DO 1 O <# # # #> TYPE 3 SPACES 
5 +LOOP ; 


Exemple d'utilisation: 

: DATAS88 10 30 25 40 50 12 17 2 
10 70 40 30 ;  DATAS88 GRAPHE 
—— ——————— 
LAMBERTPH pu 18.02.89 A 01h30 
DE LAMBERT PH - CARTE MODEM KORTEX 1200 ENFIN DANS MON PC 
- MAIS POUR LE TELECHARGEMENT? - QUELQU'UN SAIT-IL QUELLE 
PROCEDURE SUIVRE AVEC KXCOM2 TRANSFERER EN KERMIT? LA DOC 
EST UN PEU LEGERE À CE SUJET - ET C'EST FRUSTRANT - MERCI 
D'AVANCE - 
RE 
JLUC Du 18.02.89 À 16h59 
quelques questions a propos de turbo-forth. 

1) Au Lancement (dans ma version), il prend Le contenu de 
L'adresse 6 pour initialiser RP, ce qui donne FEFO comme 
depart de La pile de retour. Pourquoi, cette adresse 67? 
Elle se trouve dans Le PSP d'un .COM et pour MSDOS elle 
correspond a un saut a l'interruption 21h CALL F01D:FEFO 

Est-ce un reste de compatibilite avec CP/M.2 Peut-on 
utiliser La partie superieure de FEFO a FFFF sans danger? 

2) Je manque de place pour une de mes applications: je 
compile aux alentours de D800 apres avoir reduit Le noyau 
forth a sa moitie et mis FILES a 3. Pour garder une 
facilite d'edition je ne voudrais pas a chaque fois 
metacompiler meme sans entete. | 
Pour Le moment j'aimerais enlever Le VIEW-FIELD qui me 
permettrait de recuperer 4000 octets. Dans KERNEL, j'ai 
rajoute devant VOCABULARY FORTH un © ,-T. J'ai reecrit 
"CREATE avec COUNT HERE 2+ PLACE HERE 0 , etc 
Dans Le META j'ai enleve le 0 ,-T du mot HEADER et ca ne 
fonctionne pas correctement. | 
3) (qui n'engage que moi). Le mot FILENAME ne pourrait-il 
pas etre vectorise pour ne pas etre oblige de reecrire 
OPEN SAVE LSAVE etc quand Le nom de fichier n'est pas dans 
Le flot d'entree mais a une adresse quelconque en memoire. 

On pourraît faire: 

7 STRING ESS$ 0 C, " ESS.FTH" ESS$ $1 


: ESS2 ESS$ DROP ; 

et ! ESS2 IS FILENAME 

D'autres mots comme ] INTERPRET RUN gagneraient a etre 
vectorises. NUMBER l'est bien lui 111 

4) Suite logique au 3). Les chaines de caracteres ne 
pourraient-elles pas avoir systematiquement un 0 (ou $) au 
bout qui se deplacerait en meme temps que La chaine 
s'allonge. On gagnerait Une compatibilite avec MSDOS 
M'ENFIN turbo tel quel est deja pas mal! 


Au fait personne n'essaie d'ecrire un turbo.EXE !1 (dur 
dur) 
IAPX Du 20.02.89 A 00h20 


SUGGESTION: UN PROGRAMME CHARGEABLE ET EXPLOITABLE 

SUR TOUT PC ET COMPATIBLE: 

ECRIT EN GWBASIC ET SAUVE EN MODE ASCII, IL SERAIT 
MCAPTURABLE" PAR TOUT SITE EQUIPE D'UNE CARTE MODEM OÙ D'UN 
CORDON MINITEL-PC, CE PROGRAMME CREERAIT - SOIT PAR DES 
POKES DE "DATA" PUIS SAUVEGARDE D'UNE ZONE MEMOIRE - SOIT 
PAR CREATION DIRECTE D'UN FICHIER DISQUE PAR DES “OUTPUT“ - 
UN MODULE DE TELECHARGEMENT (CE POURRAIT ETRE KERMIT-PC 
DISPONIBLE SOUS CETTE FORME). 

QU'EN PENSE NOTRE SECRETAIRE ? 


SECRETAIRE Du 20.02.89 A 09h39 

On peut resoudre le probleme de IAPX par l'utilisation de 
DEBUG. Creer un fichier ASCII par COPY CON: CLSEGA.TXT en y 
mettant: 

100 B8 12 11 B3 00 CD 10 29 

108 CO 8E D8 FF 36 87 04 80 

110 OE 87 04 01 B9 00 06 B4 

118 01 CD 10 8F 06 87 04 BA 

120 B4 03 B8 14 07 EF B8 00 

128 06 B7 71 31 C9 BA 4F 2A 

130 CD 10 B4 02 30 FF 31 D2 

138 CD 10 CD 20 74 03 C6 07 

140 00 AO 67 46 32 06 69 46 

148 22 C5 22 C1 74 03 Cé 07 


zmmmmmmmmmnm 


Et de retour sous DOS: 
DEBUG < CLSEGA.TXT 
Ainsi DEBUG "digere! les 
fabrique un CLSEGA.COM. 
MAintenant, si vous voulez desassembler La merveille ainsi 
assemblee, il suffit de taper: 
COPY CON: DESASS.TXT 

U 100,150 

Q 

72Z 
Et sous DOS, de taper: 
DEBUG CLSEGA.COM < DESASS.TXT > CLSEGA.ASM 
Et voila; a noter que DEBUG.COM accepte aussi des 
memoniques assembleur, ce qui peut donner des idees du 
genre: 
COPY CON: EGA25.ASM 
N EGA25.COM 
A 100 


commandes de CLSEGA.TXT et 


MOV. CX,0BOD 


Q 42 


Puis sous DOS: DEBUG < EGA25.ASM 


SECRETAIRE Du 21.02.89 À 17h52 
NOUVEAUX SOFTS EN TELECHARGEMENT : 
C: - FASTWR.C ACCES DIRECT VIDEO 

- VIDASM.C CTRL VIDEO MODE 

- QLIB.C TRANSFORMATION DE .OBJ EN .LIB 
FORTH, NOUVELLE RUBRIQUE NOVIX NC4016 ET HARRIS RTX 2000: 

= NOYAUNX.FTH ASEMBLEUR NOVIX POUR TURBO.FORTH; GENERE 
DU CODE NOVIX. 

- MAIN.FTH GENERATEUR NOYAU NC4016 

= COM.FTH INTERFACE COMMUNICATION ENTRE TURBO-FORTH ET 
CARTE NB4100 

- FDISQUE.FTH POUR FAIRE LIRE DSK DOS AU NC4016 

= FCONSOLE.FTH POUR GERER CLAVIER ET ECRAN 

= FUNCT.FTH GESTION HEURE SYSTEME 

- INITFUNC.FTH INITIALISATION DES FONCTIONS D'INTERFACE 
NC4016 AVEC TF83 

= NOVIX.FTH 
ET PC. 
TOUS CES FICHIERS SONT ENCORE DES PROTOTYPES ET DES 
RECEPTION DE VERSIONS AMELIOREES, NOUS LES REMPLACERONS. 
POUR CEUX QUI NE CONNAISSENT PAS LE NOVIX NC4016, ILS 
POURRONT SE REPORTER A L'ARTICLE QUE J'AI ECRIS DANS 
MICRO-SYSTEME DE MAI 1988. BONNE SOIREE LES COUCHE-TARD... 


CONTROLE DES FONCTIONS ENTRE NOVIX NC4016 


LAMBERTPH Du 22.02.89 A 23h16 

DE LAMBERT PH A JLUC: BEAUCOUP TROP DE QUESTIONS POUR CE 
SOIR. POUR CE QUI EST DE L'ADRESSE 6 DU PSP, IL EST 
PRECISE DANS LE TECH-REF IBM QUE UTHE WORD AT OFFSET 6 
CONTAINS THE NUMBER OF BYTES AVIABLE IN THE SEGMENT". 
QUELQUES TEST SEMBLE DEMONTRER QUE CE MOT EST MIS A JOUR 
LORS DES CHARGEMENTS DES .COM ET PROBABLEMENT LORS DES 
RESERVATIONS D'ESPACE. (UTILISATION DE TURBO FORTH SUR 32 
KO). 


SECRETAIRE Du 23.02.89 À 13h52 
SIMULER DIM T$(10) DU BASIC EN TF83: Pour definir un 
tableau de chaine utilisable comme un tableau dimensionne 
de basic, definir: 
40 STRING T$(1) 
40 STRING T$(2) 
4O STRING T$(3)...etc... 
...40 STRING T$(10) 
11 CASE: T$() NOOP 
T$(1) T$C2) T$(3)...etc... T$(10) : 
et s'utilise ensuite sous La forme: 
“ Coefficient de striction:" T$(1) $! 
" Moment forces angulaïres:" T$(2) $! 
et pour afficher une chaine depuis Le tableau T$(), taper: 
n T$() TYPE 
Exemple: 2 T$() TYPE 
affiche ‘Moment forces angulaires:" 


jusqu'a 


TICK Du 23.02.89 À 17h53 

SAUT LES EMPILES, JE MARCHE A L'AMIGA 500. JE GLANE DONC 
TOUT PLEINS D'INFOS SUR LES FORTH AMIGA. JE CHERCHE EN 
PARTICULIER DE LA DOC SUR L'IMPLEMENTATION DE MVP FORTH. 
QUI EST DISTRIBUE EN FREEWARE MAIS SANS DOC. SPECIALS 
GRETTINGS TO SECRETAIRE. 


SECRETAIRE Du 24.02.89 A 09h06 
CONCERNANT FORTH SUR  AMIGA: NOUS NE  SAVONS RIEN, 
MALHEUREUSEMENT. QUE CEUX QUI PEUVENT REPONDRE A TICK 


PRENNENT LA PAROLE, POUR MA PART, JE NE DIRAI RIEN, MEME 
SOUS LA TORTURE ET LES MENACES... 


JEUC Du 26.02.89 A 10h58 

REPONSE A UNE QUESTION DE A.JACCOMARD PARUE DANS JEDI N 33 
(2 ANS). J'ESPERE QU'IL À EU SA REPONSE AVANT. ENFIN, 
SINON EN VOILA UNE: DANS JEDI N20 IL Y A UNE ERREUR DANS 
LE TEXTE. LA VALEUR ANNONCEE EST CELLE DE K ET NON DE 1/K. 
LES CALULS DE (1+4-N) C C1/2 ETC... DONNENT LA VALEUR K 
UNE VALEUR PLUS PRECISE EST KK=1,646760257 CE QUI DONNE 
1/K=0,6072529351 

POUR PLUS DE PRECISION IL FAUDRAIT AUSSI RECALCULER LES 
EPS(K) QUI SONT EGAUX A ATN(2PUIS-K) ET TRAVAILLER EN 
MULTIPRECISION. JE VAIS M'Y PENCHER ALLEZ TOUT VIENT A 
POINT À QUI SAIT ATTENDRE. 


SECRETAIRE Du 07.03.89 A 12h09 
NOUVEAUX SOFTS EN TELECHARGEMENT : 

FORTH MATHS: Calculs multi-precision 
FORTH SYSTEME: Memory MAP TF83 

FORTH GESTION FICHIERS: Acces a TF83 
FOXBASE 2+. Le fichier FORTHFOX.TXT 


resident depuis 
contient les 


48 


instructions necessaires a La metageneration d'une 

version modifiee de TEST.COM lequel est transforme ensuite 
en fichier .BIN par l'application utilisateur. Pour tout 
complement d'info ou de probleme, laisser message dans La 
BAL de LAMBERTPH. 

EN DIVERS, MENU GENERAL: 

KEYBIOS.COM et .DOC 

ASK.COM et .DOC 

CALC.COM et .DOC 

CARDFILE.COM et .DOC; ce programme est particulierement 
interressant pour Les etourdis qui recherchent leur agenda. 
Une fois CARDFILE charge, on peut appeler l'agenda par 
appui sur ALT-SHFTdroit et rajouter, rechercher, supprimer 
ou modifier une fiche. 


FORTH7 Du 07.03.89 A 13h41 

AMIGA (suite) $ 1000 REWARD !!! THE WORLD'S  FASTEST 
PROGRAMMER CONTEST a ete gagne par Le team Delta Research 
de San Rafael, California avec Le JFORTH tournant sur 
AMIGA. Je n'en sais pas plus: si des AMIGA!'ÿys savent ou 
trouver Le JFORTH, merci d'en aviser JEDI ou ma bal. Mon 
A-2000 accepte bien Turbo-Forth mais c'est sur la carte 
passerelle PC evidemment... 

euh FORUM JEDI CLEAR 7??? 


FORTH7 Du 10.03.89 À 14h32 
QUESTION: Pourquoi l'affichage de Turbo-Forth n'est-il pas 
accelere par Le resident QWICKCRT  (telechargeable sur ce 
serveur)? 
REPONSE: (pas tous en meme temps!) Parce que Turbo-Forth 
travaille au niveau du DOS et non du BIOS dans un souci de 
compatibilite maximale. Alors pour tous Les speedes voici 
une autre definition de (CONS) utilisant Le BIOS et Le 
moyen de La patcher dans le kernel de Turbo-Forth. Avec 
QWICKCRT installe, comparez un WORDS en mode FAST et 
SLOW... 
\ Version BIOS de (CONS) primitive EMIT 
HEX 
CODE (BIOS-CONS) 
BX BX XOR 
OE # AH MOV 10 INT 
NEXT END-CODE  DECIMAL 
: FAST ( -- ) \ affichage par BIOS 
ATTRIBUTS OFF 
['] (BIOS-CONS) 2+ ['] (CONS) ! ; 
: SLOW € -- ) \ affichage par DOS 
ATTRIBUTS ON 
['} (CONS) DUP 2+ SWAP ! ; 


( car -- ) 
AX POP 


SECRETAIRE Du 14.03.89 À 10h49 
MODIF DANS FORTHFOX.TXT (TELECHARGEMT) Il faut rajouter 1- 
en debut de definition de ENTER: 

: ENTER ( seg adr lg ---) 

1- >R 2DUP  ...etc... 

sinon, La chaine FOX$ contient Le caractere 0 a La fin. 
Exemple d'utilisation depuis FOXBASE: 

STORE "! DARK WORDS !! TO TFSTRING 

CALL APPLIFOX WITH TFSTRING 
et FOXBASE execute WORDS. Maintenant, si sous APPLIFOX vous 
faites: 

" BIEN RECU " FOX$ $! RETURN 
dans un mot execute, vous pouvez recuperer La chaine dans 
TFSTRING: 

? TFSTRING. 
(Pas trop mal a la tete...?) At 


SECRETAIRE Du 14.03.89 A 14h40 
ACCES A BTX; JEDI N'EST PAS LE SEUL SERveur proposant des 
softs en ASCII. Sur Le reseau BTX, le serveur de WR 
Computer Club donne aussi des softs ASCII. 
Acces: 3622 ou 36224949 (selon PAV) puis *111076405# et 10 

«+. apres, vous avez interet a comprendre La langue de 
GOETHE...verstanden? 
Egalement un autre serveur sur BTX, specialise PC: 

Acces *208888# (PC-NET Telesoftuare) 
Allez-y, vous vous remettrez dans Le bain de vos cours de 
langue que vous sechiez au lycee... 


SECRETAIRE Du 16.03.89 À 12h29 
APPELEUR AUTOMATIQUE (ET PAS REPONDEUR) ce n'est plus un 
gag; l'appeleur automatique existe. Pour transmettre un 
message a une personne si cette personne n'est joignable 
qu'aux heures ou vous meme ne l'etes pas: 

3617 VOCALE 
Ce service vous donne des bonus pour l'utilisation en 3614. 


Transmet tout message telephone a n'importe quelle heure, 
n'importe quelle date (tenez, preparez Les voeux de bonne 
annee des mintenant, ou Les anniversaires). Choix entre 
une voix d'homme, de femme; possibilite de joindre un air 
musical au message. Vous allez craquer... 


SECRETAIRE Du 16.03.89 A 12h35 

NE MOURREZ PAS IDIOT: L'annuaire TELEX est disponible par 
MINITEL en composant Le 3616 SCRIP. 

Mais quelqu'un connait-il Le moyen d'expedier un telex 
depuis un minitel et sans etre abonne a un serveur 
“passerel Le? 


MOSAIQUE Du 22.03.89 A 14h52 

PROBLEMES DE TELECHARGEMENT ET AUTRE AVEC UN PCI 
D'OLIVETTI. CELA SEMBLERAI VENIR DU PORT DE SORTIE SERIE 
QUI EST DU TYPE 8251 ET NON 8250 D'OU PROBLEME DE 
COMPATIBILITE RS232C. L'ADRESSE DU PORT SERIE DU PCI 
EST:8&0D0 AU LIEU DE &3F8 SUR LE MERE PORT D'UN PC 
ORDINAIRE. EN MODIFIANT CETTE ADRESSE CELA SERAIT-IL 
SUFFISANT POUR FAIRE FONCTIONNER KERMIT PAR EX. COMMENT 
RETROUVER CETTE ADRESSE? (SECTEUR ET No DE LIGNE) AVEC 
PCTOOL OU AUTRE.? MERCI DE VOTRE REPONSE. 


SECRETAIRE Du 23.03.89 A 08h55 
REPONSE A MOSAIQUE: Ah, voila Le genre de colle coton. Une 
remarque tout d'abord, personelle, MOLIVETTI ne fait rien 
comme Les autres". S'il est vrai que votre port serie est 
en 0D0, alors ca va etre galere pour adapter KERMIT en Le 
bricolant avec PCTOOLS mais c'est possible: 

- tout d'abord, copier KERMIT sur Une disquette de 
travail 

- lancer PCTOOLS 

- demander La fonction SEARCH 

- demander La recherche des octets F8 03 (format cellule 
16 bits en memoire mode INTEL) dans Le fichier KERMIT.EXE. 


- si trouve, reiancer La recherche. Si cette paire 
d'octet n'existe qu'en Un ou deux, voire trois 
exemplaires, essayez de modifier ensuite, apres 


reexecution de SEARCH, cette paire d'octets en la 
remplacant par La paire 00 OD dans cet ordre. 

Attention, apres chaque modification, sortez de PCTOOLS et 
Lancez votre KERMIT modifie; pas La peine de massacrer des 
adresses qui ne seraient pas celles du port serie. 
Comme on dirait a HARA-KIRI: merci professeur JEDI... 
ee 
SECRETAIRE Du 23.03.89 A 09h06 

META-GENERATEUR INTEL 8051: Avec L'aide de LEMAIGRE, j'ai 
mis au point le meta-generateur de code INTEL 8051 ecrit 
en TURBO-Forth et tournant sur PC. 

En quelques Lignes, Le micro-controleur 8051 est une sorte 
de micro-processeur 8 bits, mais avec l'avantage de 
disposer dans un seul boitier d'un port serie, 4 ports // 
8 bits, un timer, 128 ou 256 octets de RAM interne, 4 ou 
8k EPROM/ROM interne. 

Avec cette bestiole, vous evitez de construire un circuit 
classique style processeur, decodeur d'adresse... 

En outre, le 8051 coute trois fois rien: environ 70 Fr 
piece. IL peut servir a toutes sortes d'applications: 
conversion // serie et inversement, controle 
d'automatismes, regulation, etc... 

D 
MOSAIQUE Du 28.03.89 A 16h34 

BONJOUR M'SIEUR LE PROF JEDI. J'AI ESSAYER TON TRUC 
PLUSIEURS FOIS. J'AI RETOURNER LES ADRESSES DS TOUS LES 
SENS SANS AUCUN RESULTATS... QUE FAIRE? 


RRQ 


ESTHETE Du 30.03.89 A 11h09 
TRES INTERESSE PAR FORTH 8051 IDEE: 
8031 CMOS 
1 RAM 
1 EPROM 


1 ADAPTATION MINITEL 
= SYSTEME ECONOMIQUE D'INITIATION A FORTH ET AU 
PROCESS DISPONIBLE SOUS FORME DE EPROM+SCHEMA 
PS: ALIMENTATION PAR MINITEL 
SAUVEGARDE RAM CMOS PAR CAPA 
VOS ECRAN CONSERVES SANS FLOPPY (GENIAL CMOS! ). 
TE — 
SECRETAIRE Du 30.03.89 A 12h21 
Concernant FORTH 8051: Le noyau FORTH 8051 est en cours de 
creation et de test. Mais l'assembleur 8051 avec son 
generateur de code cible sera diffuse prochainement sur 
SAM*JEDI (annonce en temps opportun sur ce FORUM) 
Apres etude des caracteristiques du 8051 et comparaison 


possibilite d'adapter le noyau 8051 au systeme propose par 
ESTHETE dans le precedent message. 

Une autre puce interessante a exploiter dans cette voie est 
Le muP 68HC11 de MOTOROLA (quasi-compatible code 6809). 


En fait, Les micro-controleurs sont certainement La voie 
royale pour Les applications de FORTH: 
-  compacite extreme (1 à 1,5x 
equivalent) 

- vitesse d'execution (0,4 a 1x l'assembleur). 

- tres grande rapidite de developpement 

- facilite d'adaptation et modification du code a une 
nouvelle gamme de muP. : 


Le code assembleur 


Le temps de developpement de l'assembleur 8051, en partant 
de rien, est estime a 10 jours, et ce par une seule 
personne. Le meme travail aurait demande un delai beaucoup 
plus Long s'il avait ete realise en assembleur ou en C. 


Maintenant, Le noyau 8051 incluera un minimum de primitives 
en code machine, permettant ainsi une portabilite aisee 
vers des muP de future generation. Exemple, OVER est ecrit 
sous La forme: 

: OVER >R DUP R> SWAP ; 

ce qui est plus court que sa version assembleur en 8051. Si 
une application a un temps d'execution critique, il sera 
toujours envisageable de redefinir les parties sensibles en 
les optimisant en code machine. 


Attention, dans le cahier des charges du noyau FORTH 8051, 
il n'est pas prevu de creer un interpreteur FORTH; donc pas 
de WORDS ou LIST... On privilegie La metageneration de code 
sans en-tete. 


Le systeme PC ou compatible reste dans cette application Le 
systeme de developpement a partir duquel est controle et 
genere le code. 


Le FORTH 8051 sera donc avant tout un produit a vocation 
industrielle pour La gestion et Le controle de processus 
automatises. Son seul but: faire gagner du temps dans La 
phase developpement de programmes en remplacement de 
l'assembleur 8051 classique. 
à 
SECRETAIRE DU 30.03.89 A 12h44 

MANUEL TURBO-FORTH 83-STD: Mille excuses a ceux qui 
l'attendent avec impatience. IL n'est pas encore acheve. Sa 
parution est estimee courant juin- juillet 89. 

Si quelqu'un habitant PARIS ou La region parisienne peut 
nous preter Une imprimante Laser connectable a un PC (duree 
8 a 10 jours) qu'il se fasse connaitre en laissant ses 
coordonnees dans La bal SECRETAIRE ou au SYSOP( Ndir: 
problème réglé à ce jour). 


SECRETAIRE Du 30.03.89 À 12h47 
REPONSE À MOSAIQUE: C'est bien ce que je pensais, votre cas 
est desespere. IL ÿ a plusieurs options possibles: 

- casser Les pieds a OLIVETTI pour qu'ils reglent votre 
probleme, 

- revendre votre trüc-chose et racheter un vrai 
compatible, en fer, avec plein de ports d'extension, capot 
Style 2CV, clavier bien mecanique, extensible a souhait et 
sans surprise. 

trouver Les sources de KERMIT (yark, yark, yark...), 
potasser Le C (plus ou moins long selon votre etat 
d'avancement) et l'adapter a votre compatible 
exotique. 

Vous seriez maso, c'est La derniere solution que je vous 
engage a suivre. 


FORTH7 DU 30.03.89 A 20h07 

On vous à deja montre comment lancer DEBUG depuis Turbo- 
Forth. Oui mais comment  PILOTER un programme-fils 
interactif sans ligne de parametres? 

Exemple: je veux ecrire 'DESAS DUP! et voir Le code de DUP 
desassemble par DEBUG sans avoir rien d'autre a faire. 
L'est malade c'uila: faudra bien qu'il frappe 
Uquelque:chose <CR> puis @ <CR> sous DEBUG, c'te bonne 
blague. 

MEUH NON si j'ecris dans un fichier Les commandes Useg:adr 
<CR> Q <CR> et si je dirige l'entree de DEBUG depuis ce 
fichier! Aucun langage ne peut faire ca aussi facilement 
que Turbo-Forth. En un ecran Minitel: 

\ DESASSEMBLEUR via DEBUG.EXE 


J'avec celles du 8031, il y aurait compatibilite, donc INCLUDE PIP \ redirections des E/S | 


: DESAS ( <mot> -- ) 

BASE Q HEX 

“ CON TO DBUG.MAC!! SEXECUTE 

CR ." UM DSEGMENT (U.) TYPE ." :n 

1 @ (U.) TYPE CR ." QM CR RESTORE 

" KBD FROM DBUG.MACN $EXECUTE 

“ PROGRAM DEBUG.EXE" $SEXECUTE RESTORE 

" DEL DBUG.MAC' SEXECUTE 

BASE | ; 
EOF 
Le fichier DBUG.MAC est temporaire: il contient des macros 
‘construites! pour DEBUG puis est detruit! 


SECRETAIRE Du 31.03.89 A 12h27 
CLE POUR ACCES CONFIDENTIEL A VOTRE SYSTEME: vous partez 
en conge et souhaitez restreindre l'acces a votre machine 
en votre absence. Une solutin consiste a poser une cle 
electronique. Maïs comme ce genre de programme n'est pas 
courant (si? vous l'avez? quelle chance...) il va falloir 
le bricoler soi-meme. En TURBO-Forth, j'en ai fait une 
pour ainsi dire comme qui rigole: 
4 CONSTANT #LETTERS 
#LETTERS STRING A$ 
#LETTERS STRING PASS$ 
CREAÂTE INPUT-CHAR 1 ALLOT 
: SIGNON € ---) 
CR ." MOT DE PASSE:" : 
: PASSWORD-INPUT € ---) 
A$ DROP O A$ $! 
SIGNON #LETTERS 0 
DO KEY INPUT-CHAR C! 
INPUT-CHAR 1 A$ APPENDS 
LOOP AS UPPER ; 
VARIABLE #ACCESS 
3 CONSTANT MAX-ACCESS 
: RESET-SYSTEM ( ---) 
CR CR CR 79 177 REPLICATE 
CR 177 EMIT 18 SPACES BLINK 
-" BLOCAGE MACHINE, APPELEZ " 
."" L'OPERATEUR AGREE" ATTOFF 
17 SPACES 177 EMIT CR 79 177 REPLICATE 
BEGIN AGAIN : 
: ACCESSING ( ---) 
RACCESS OFF 
BEGIN #ACCESS 1+!  PASSWORD-INPUT 
A$ DROP PASS$ COMPARE O= NOT 
WHILE 
#ACCESS à MAX-ACCESS = 
IF  RESET-SYSTEM 
ELSE CR BOLD 5 SPACES 
-" Mot de passe errone, 
."" recommencez!! ATTOFF 


Une fois ceci tape et sauvegarde dans un fichier nomme 
PASSWORD.FTH, tapez sous TURBO-Forth: 

INCLUDE PASSWORD 

" XXXX!! PASSS $1 \ remplacer XXX par 

! ACCESSING IS BOOT \ mot de passe sur 

SAVE-SYSTEM C:\PASSHORD \ 4 Lettres 

BYE 

Puis sous DOS, revenez a votre repertoi- 

re racine par CD \ 

Editez AUTOEXEC.BAT et rajoutez une ligne au debut de 
AUTOEXEC (de preference apres KEYBFR Le cas echeant) avec 
la commande PASSHORD. 


MAïntenant, votre Systeme est protege contre toute 
tentative d'utilisation frauduleuse. Attention, notez bien 
votre code d'acces. 


FORTH7 Du 01.04.89 À 21h53 

3h 47m 26s pour Le crible d'Erathos: Le record de lenteur 
a ete battu par Turbo-Forth. Ce ‘turbo! tournait sur un 
simulateur 8086 lui-meme en ‘turbo! lequel installe sur un 
operating compatible MS-DOS en ‘turbo! qui pour des 
raisons comprehensibles avait ete 'virtualise’ sur Le 
disque du PC... 

POISSON D'AVRIL ? 

Pas vraiment car songez à ceci: qui voudra d'un processeur 
Forth 50 Mips si on ne fournit pas avec l'emulation des 
80xxx et Un OS acceptant sans broncher MS-0S/2-UNIX? 


bu 


Emulation des emulations; tout n'est  qu'emulation! 
Turbo-Forth n'est-il pas un emulateur de machine 
Forth sur PC ? Alors ... 


JEUC Du 03.04.89 A 22h01 

SUITE DE L'IDEE DE FORTH7, CELLE QUI N'ETAIT PAS UN POISSON 
D'AVRIL. SUR DEBUG AUTOMATIQUE. CHEZ MOI C'ETAIT QUAND MEME 
UN POISSON D'AVRIL CAR CA NE FONCTIONNAIT PAS??? J'AI 
CHANGE LES CR PAR DES 13 EMIT ET CA MARCHE. AMICALEMENT. 


SECRETAIRE Du 04.04.89 A 10h23 

A TOUS, INDISPONIBILITE DU SECRETAIRE: Oui, je prends 10 
jours de conge. En mon absence, soyez sages, pas de dis- 
putes... Si vous voulez me joindre, Laissez un mot dans ma 
BAL ou au SYSOP. 

Ah, a propos de JEDI no 50, je manque Un peu de matiere. 
Alors, Les forcats (devrai-je dire Les FORTHats??...) de La 
plume, a l'ouvrage SVP, que ce ne soïent pas toujours aux 
memes de trimer. 

On acceptera de publier tout ce qui vous passera par la 
tete (sauf Les eructations meurtrieres, style Adolf 
Khomeyny) et qui concerne tout langage. 


FORTH7 Du 04.04.89 A 18h31 

REDIRECTION DES ENTREES (suite) Vachement embetant cette 
histoire du DEBUG foireux chez JLUC. Ca veut dire en clair 
que sur certains systemes Une entree CR doit etre Limitee 
au seut <CR> (code 13) sans le <LF> (code 10). Bon, pour 
Forth pas de pb (JLUC a fait La modif) mais pour Le pov' 
epsilon qui utilise un editeur? Pas facile d'en trouver un 
qui ne mette pas <CR><LF>1 


J'ai l'impression (mais me goure-je?) que La version MS-DOS 
n'est pas en cause. Ce serait plutot au programme de 
comprendre une entree <LF>: celui qui a reecrit Le 
DEBUG.EXE de ma 3.21 a pense a La redirection de son pgr! 


SECRETAIRE Du 05.04.89 A 13h12 

PPC PORTABLE AMSTRAD AVE DISQUE DUR: C'EST POSSIBLE 
MAINTENANT; CHEZ LOISITECH, FOURNITURE DU PPC PORTABLE AVEC 
DISQUE DUR 20MO INTEGRE. POSSIBILITE MONTAGE SUR VOTRE PPC. 


CONTACT: STE LOISITECH 

CENTRE COMMERCIAL TERMINAL 93 
93100 MONTREUIL 

TEL 1-48.59.12.57 


JLUC Du 06.04.89 A 23h22 

SUITE DE LA SUITE DE L'AUTRE SUITE MOI, J'AI UN EDITEUR QUI 
PERMET DE NE METTRE QUE DES <CR> À LA PLACE DES 

<CR><LF> MEME QUE JE M'EN SERS DE TRAITEMENT DE TEXTE AVEC 
FORTH: 

C'EST <PUB> NATHALIE 

ET AVEC DEBUG POUR LES REDIRECTIONS CA MARCHE. A LA 
PROCHAINE 


SECRETAIRE Du 08.04.89 A 09h41 

IDEE DE PROGRAMME:  MINITEL HD,  CHAUTE DEFINITION). 
TRANSMETTRE UN GRAPHISME PAR MINITEL, OUI, C'EST POSSIBLE. 
VOICI COMMENT J'ENVISAGE LA CHOSE. 


LA PLUPART D'ENTRE VOUS DISPOSE D'UNE LIAISON MINITEL PC. 

- BASCULAGE DE LA LIAISON MODEM VERS PRISE SANS ECHO 
ECRAN, 

- UN CODE 32 VAUT UN POINT NOIR, 

- UN CODE 33 VAUT UN POINT BLANC, 

- UN CODE SUPERIEUR À 33 SIGNIFIE QUE 

LE PRECEDENT POINT EST À REPETER x-33 FOIS: EX: 35 SIGNIFIE 
QUE LE PRECEDENT POINT EST A REPETER 35-33, SOIT DEUX 

FOIS. 

- EN FIN DE TRANSMISSION, 
AIGUILLAGES INITIAUX DU MINITEL. 


RESTAURATION STATUT DES 


ON NE PEUT UTILISER LES CODES INFERIEURS À 32 SOUS PEINE DE 
PRENDRE LE RISQUE D'INJECTER UN CODE DE CONTROLE, STYLE 
DECONNECTION OU AUTRE. 


LE PROGRAMME DEVRA TRANSMETTRE EN PREFIXE LA TAILLE X-Y ET 
LES COORDONNEES X-Y D'AFFICHAGE DU GRAPHISME. 


LE PROGRAMME DEVRA PERMETTRE INDIFFEREMENT LA TRANSMISSION 
ENTRE SYSTEMES GRAPHIQUES DISPARATES: HERCULES<->CGA, CGA<- 
->EGA, ETC... 


JE PROPOSE, POUR NE PAS COMPLIQUER, DE TRANSMETTRE DANS UN 


PREMIER TEMPS DU GRAPHISME MONOCHROME. L'EMPLOI DE 
FENETRES EN LOCAL POUR LA SELECTION D'OPTIONS N'ES PAS 
EXCLU. 


QUE CEUX QUI SOUHAITENT PLANCHER SUR CETTE IDEE OU 
SIMPLEMENT APPORTER DES SUGGESTIONS SE FASSENT CONNAITRE. 


SI CE PROGRAMME VOIT LE JOUR, IL PERMETTRA DE TRANSMETTRE 
DES DESSINS, SCHEMAS, PHOTOS (PRISES PAR HANDI-SCANNER PAR 
EXEMPLE) ENTRE DEUX PC VIA MINITEL: 

PC<->MNTL..... MNTL<->PC 
ATCHAO, VELOMA, KENAVO, AUF WIFDERSEHEN, ET TUTTI QUANTI. 


freedom33 Du 12.04.89 A 15h28 

help: qui pourra me donner Les adresses exactes du bios at 
(128ko et 256ko) afin de pouvoir les copier sur une 
Merci d'avance a vous tous. 


DIDIER J Du 12.04.89 À 15h33 
EXISTE T IL UN FORTH83 OU UN POLYFORTH SUR APPLE 2E ET SI 
OUI OU ET A QUEL PRIX? MERCI À TOUS 


FLIPO Du 12.04.89 A 21h04 

Je reviens des Journees FORTH d'Aix La Chapelle. Voici 
quelques nouvelles : 

1) Nouveaux produits disponibles : 

- Boitier a base RTX2000 a brancher sur RS232 d'un PC ou 
ATARI qui sert alors de terminal. Prix: 2000 DM (7000 FF) 
HT. 
Contact: Ulrich PAUL Erlenweg 18 

D-8901 LEIFERSHOFEN 

- Processeur RTX2000 nu 1777 DM T.T.C. pour Les membres de 
la Forthgesellschaf (cotisation annuelle : 64 DM, incluant 
& numeros de Vierte Dimension) 


2) Produits annonces : 

-RTX4000 (Forth 32-biîts) pour mi-90 

-Par Zilog : Super-8 microcomputer a instructions de base 
en Forth. 


3) Projet :des Journees FORTH d'Aix La Chapelle; 
Realisation d'un FORTHscript (Postscript en Forth) a 
implanter par exemple sur un RTX2000. Utilisation sur une 
imprimante Laser Atari par exemple. 

Contact : Christoph KRINNINGER 


4) FORTH 32-BITS sur Atari 
La societe Bradley Forthware propose un Forth 32-bîts pour 
Atari avec interface GEM, BIOS BDOS. 


GAVROCHE Du 13.04.89 À 17h34 
OÙ PUIS JE TROUVER MSKERMIT??? MERCI 


JFW2 Du 14.04.89 À 12h10 

SALUT A TOUS JE CHERCHE UN SCHEMA DE CONTROLEUR DE DISQUES 
DUR (10 ou 20 Mo) MERCI DE ME REPONDRE SUR BAL: JFW2. A+ 
a 
SECRETAIRE Du 18.04.89 A 08h44 

JE SUIS DE RETOUR: j'ai passe de bonnes vacances, un peu 
courtes, mais completement deconnecte de La micro- 
informatique. 


Mon appel concernant d''eventuelles participations a 
l'élaboration d''un programme "MINITEL HAUTE DEFINITION" 
ne semble pas vous stimuler. Alors je repete ce que 
j'entends par MHD; il s'agit par l'intermediaire de deux 
MINITEL et deux PC de transmettre Une image graphique 
{monochrome pour Le moment): 

PC---MINITEL Ligne MINITEL---PC 
En manipulant Les aiïguillages du MINITEL on peut demander! 
l'envoi de code sur La seule prise peri-informatique du 
MINITEL ce qui preserve l'affichage texte de toute 
perturbation. Exemple: 

- aïguillage modem > ecran minitel seul pour envoi de 
texte; 

- aiguillage modem > prise pour envoi d'un graphisme 
haute definition 

- en fin de graphisme, 
minitel. 
Pourquoi Le choix du minitel<->PC? Parce qu'un minitel ne 
coute rien (il suffit de Le demander a son ACTEL). 


re-aiguillage modem > ecran 


En codant de facon optimale le graphisme, une image haute 
definition peut etre transmise en un temps relativement 
court. 


Bien entendu, ce codage doit permettre La restitution de Q pour quitter DEBUG. 


l'image sur n'importe quel type de moniteur graphique (CGA, 
EGA, VGA, HERCULES, etc...) et meme de machines differentes 
(PC-minitel minitel-ATAR!I par exemple). 


Ma premiere îdee est de reconstituer d'abord l'image cote 
emetteur. Ensuite, on definit le cadre ou la fenetre 
graphique a transmettre pour eviter de transmettre toute 
l'image Video. Puis Le contenu de la fenetre est balaye 
point a point. Pour chaque point d'une couleur on comptera 
Le nombre de points de couleur inchange. 


En transmission, on enverra La couteur du point a afficher 
(noir ou blanc} puis Le nombre de repetiions de ce point. 
Les restrictions: on ne peut transmettre un code inferieur 
a 32 a un minitel sans risquer de le perturber, voire 
d'interrompre la communication. Donc, toutes les valeurs 
transmises devront etre comprises dans l'intervalle 32-127. 
Certains codes inferieurs a 32 pourront quand meme etre 
exploites: 

- code 13 pour signaler un retour a La ligne graphique 
suivante; evite de tracer une ligne vide 

- code 12 pour repetition: 

33 12 55 signifiera 


95-32-23 fois a repeter 
code repetition 
33-32=1; un point blanc a tracer 


D'autres codes pourront etre reserves pour signaler au 
Systeme recepteur que l'image est en video inverse. Ceci 
peut etre utile si Le nombre de points colores est trop 
important; permet de diminuer Le temps de transmission. 


Les routines essentiel Les: 

- en transmission: commande aiguillage minitel: test d'un 
point graphique; analyse des repetitions de points 
successifs de meme couleur {noir ou blanc): 

- en reception: traitement des codes recus et tracage de 
l'image graphique. 


Les methodes de productions d'image haute definition sont 
independants du programme de transmission reception. Elles 
peuvent etre generes de diverses maniere: 

- logiciel DAO ou PAO 

- image Video digital isee 

- image calculee (fractal par ex.) 

- image provenant d'accessoires d'instrumentation 
(convertisseur AD et logiciel type "OSCILLOSCOPE" par ex.) 
- image par scanner ou handi-scanner. 


A mon sens Un tel logiciel serait assez simple à creer et 
permettrait de Lancer un challenge accessibles aux 
programmeurs sur tout type de machine (PC, ATARI AMIGA, 
etc...) et a partir de differents langages CFORTH, PASCAL, 
C, assembleur), 


Concretement, j'attends que vous deposiez dans ce forum 
toutes les idees, informations et bouts de programme que 
vous pouvez mettre a La disposition des autres connectants. 
Si chacun ÿ met du sien, ce forum aura atteint son but, a 
savoir, reunir des competences autour d'un meme projet 
jusqu'a l'aboutissement de celui-ci. 


Mettez vous au starting block, a vos marques, prets, 
partez!iit 
SECRÉTAIRE 18.04.89 12h22 


REPONSE A FREEDOM33: copier Le BIOS AT sur disquette. En 
principe, avec DEBUG vous avez ce qu'il faut pour copier 
votre BIOS sur disquette. 


Taper DEBUG 
puis sous DEBUG, taper: 

N BIOS.BIN 

R BX 
affiche contenu de BX et Ligne suivante 

: mettre valeur de BX modifiee 

R CX 
affiche contenu de CX et Ligne suivante 

: mettre Valeur de CX modifiee 
BX+CX=nombre d'octets a copier sur disque. 
W cs:off 
ou cs et off sont les valeurs hexa du debut de votre ROM 
BIOS. 


Voila votre ROM BIOS sur disque. A vous de bricoler 


maintenant. 


SECRETAIRE 
21.04.89 
16h13 
AUX POSSESSEURS D'AMSTRAD: EN F83 LetP, j'aimerai 
essayer ce mot: 

: EID ( ---) C'HEX] 

DUP Ca 01F AND O0 DO 

1+ DUP Ca 07F AND EMIT 

LOOP DROP ; 
puis de rechercher La valeur du cfa de mot 

0) 
Ensuite, par ! WORDS 50 DUMP, rechercher La position de La 
paire d'octets inversee du cfa de .ID dans Le dump de 
WORDS. Notez cette adresse et faire: 

" EID adr ! 
ou adr est l'adresse notee. Maintenant, par SEE WORDS, 
verifiez que .ID a bien ete remplace par EID dans WORDS. 
Executer WORDS et me dire si ca plante. 


faire 


.ID en tapant 


FF32 24.04.89 21h42 
QUEL EST CE MOT DE LONGUEUR O SITUE APRES TRAVERSE DANS 
F83 AMSTRAD? 


FF32 26.04.89 12h24 
UTILISATEURS D'UNIX CONTACTEZ MOI SVP IL EST GRAND TEMPS 
QUE L'ON PORTE TF83; NOTEZ QUE NOUS SOMMES DEJA EN 1989 ! 


SECRETAIRE 26.04.89 13h26 

PROJET F32: SI F32 DEVIENT UN VERITABLE MICRO, IL FAUDRAIT 
ENVISAGER SERIEUSEMENT LES MODALITES DU TRAITEMENT VIDEO. 
EN DEHORS DE CGA, EGA, VGA, HERCULES, UN AUTRE CHOIX 
EXISTE: D2-MAC. 

AVANTAGE: CONVERSION BIT-MAP EN VIDEO TRES FACILE (PLUS EN 
TOUT CAS QUE BITMAP => VIDEO ANALOGIQUE RVB OÙ COMPOSITE). 
MAIS AVANT DE FAIRE CE CHOIX, IL FAUDRAIT CONNAITRE L'ETAT 
DE LA NORME D2-MAC. SI QUELQU'UN A DE LA DOC SUR CE 

SUJET, JE SUIS PRENEUR. 


SECRETAIRE 29.04.89 13h27 
PREMIERS MNEMONIQUES DE F32 DEJA DEFINIS 
1) PILE A PILE: 
+, +C, Ts. -C, * 
DUP, SWAP, OVER, DROP, 
3, =, >, y 
0, -1, ( flags booleens predefinis) 
OR, AND, NOT, XOR, 
>R, R>, Ra, 
2) MEM VERS PILE: 
CLIT, MLIT, DLIT, (8, 16 et 32 bits) 
Ca, Wa, Da, 
3) PILE VERS MEM: 
CI, WI, D!, 
4) BRANCHEMENTS: 
BRANCH, et ?BRANCH, ( valeur relative 16 bits) 
5) APPELS DE SOUS PROGRAMME : 


CALL, 
Nota: on combine sur 32 bits l'adresse et le type 
d'appel : 
bits O0 a 29, adresse relative ou absolue du sous 
programme; 


bits 30 et 31: 


01 = call relatif avant 
10 = call relatif arriere 
11 = call adresse absolue 


Tous Les cfa de mots seront codes en 32 bits selon cette 
methode en adressage relatif pour permettre de reloger Le 
code. 

Je prepare Un assembleur F32 
possible en telechargement. 


qui sera disponible des que 


FORTH7 04.05.89 14h26 
Liberte n'empeche pas rigueur: INDENTEZ vos lignes Forth 
pour une meilleure lisibilite! 
DefMacro><Ctrl-CR> 
<CR><UP><Ctri-Right><Doun> 
<DefMacro> 
2eme version permettant de couper une ligne sur un mot en 
maintenant ('indentation: 
<DefMacro><Ctrl-CR> 
<CR><CR><UP><UP> 
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<Ctrl-Right><Doun><Del> 
<DefMacro> 


(Macros pour WordPerForth bien-sur!) 


FORTH7 05.05.89 18h22 

ET SI ON SUPPRIMAIT LE DUP DU FORTH? Les operateurs FORTH 
peuvent s'entendre comme non consommateurs de La pile ainsi 
le ‘+! pourrait-il faire (S n1,n2 ni,ne,n3) (n3=ni+n2) ou 
bien (S n1,n2 --- ni,n3) au Lieu de (S ni,n2 --- n3) en 
Forth habituel avec comme regle de conserver Les operandes 
afin de pouvoir les utiliser a nouveau. Pour eviter La 
saturation de La pile, on adopteraît une pile circulaire 
(disons 2**8 cellules) avec perte automatique des plus 
vieilles cellules devenues tres probablement inutiles. 
Genial, non? 

Eh bien, essayez! À genoux vous benirez ce foutu DUP avant 
peu. .…. 

de parle bien-sur de l'utilisation d'une pile au plus bas 
niveau: on peut tres bien concevoir une programmation sans 
ces "horribles!! DUP SWAP OVER DROP (voir variables Locales 
ALEPH utilisant une pile accessoire). 

Ceci dit, La recuperation d'operandes APRES l'operation est 
une idee pouvant se reveler pratique et plus rapide que Le 
DUP avant. La touche LAST-X des calculateurs HP en RPN 
evite des ENTER (equivalents de DUP). 

Malheureusement CODE LAST-X SP DEC SP DEC NEXT C; ne donne 
pas pour 3 4 + LAST-X * Le 3 4 + 4 * attendu parce que 


L'interpreteur utilise La pile lui aussi! LAST-X marche 
bien (et vite) en compilation! 

SECRETAIRE 

08.05.89 

10h51 

CORDIC EN TURBO-FORTH: 

J'AI RENCONTRE  LAVARENNE QUI VIENT D'IMPLANTER LES 


TRAITEMENTS NUMERIQUES VIRGULE FLOTTANTE EN ALGORITHME DE 
CORDIC SOUS TURBO-FORTH. CEUX-CI SERONT DISPONIBLES SOUS 
PEU EN TELECHARGEMENT (AVIS SUR CE FORUM). SON PROGRAMME 
PERMET TOUS LES CALCULS SUR REELS EN PRECISION QUELCONQUE 
(12, 15, 20, 30 CHIIFRES APRES LA VIRGULE) DONC PRECIEUX 
POUR LES CALCULS ASTRONOMIQUES. POUR VOUS FAIRE BAVER UN 
PEU: 

- OPERATEURS STANDARDS + - * / etc... 

- OPERATEURS TRIGOS: SIN COS ASIN ACOS TAN ATAN SINH COSH 
etc... 

- FONCTIONS HYPERB: SQR LOG LN EXP etc 
ET MEME CALCULS SUR COMPLEXES, ROTATION VECTORIELLE, 
CONVERSION POLAIRE EN SCALAIRE etc... 


DE PLUS, POUR CEUX QUI UTILISENT DEJA LE RTX2000 DE HARRIS, 
IL EXISTE CES MEMES ALGORITHMES DE CALCUL EN CORDIC, CRÉES 
PAR  LAVARENNE, AU CATALOGUE DE MPE (MICROPROCESSOR 
ENGEENERING, HANLEY ROAD SOUTHHAMPTON, GB). 


AVEC L'ARRIVEE DE CES NOUVEAUX PROGRAMMES DE CALCUL EN 
VIRGULE FLOTTANTE, TURBO-FORTH VIENT DE GAGNER SA PLACE SUR 
LE PODIUM DES VERSIONS FORTH PC LES MIEUX EQUIPES EN 
PROGRAMMES D'APPLICATION. 


SECRETAIRE 12.05.89 16h24 
L'equivalent de EMIT vers Le port serie est: 


CODE >RS (€ € ---) 

SERIAL 5 + # DX MOV 

BEGIN DX AL IN 20 # AL TEST 

O<> UNTIL 

SERIAL # DX MOV AX POP DX AL OUT NEXT END-CODE 


Et l'equivalent de KEY depuis Le port serie est: 
CODE RS> € --- c) 
SERIAL 5 + # DX MOV 


BEGIN DX AL IN 01 # AL AND 
1 # AL TEST 
O<> UNTIL 
SERIAL # DX MOV AX AX SUB DX AL IN 1PUSH END-CODE 
DECIMAL 
SECRETAIRE 12.05.89 16h36 


DECRYPTAGE D'IMAGES PCX: Les images PCX sont utilisees par 
WINDOW, PC-PAINTBRUSH etc... de MICROSOFT. 
Maintenant, grace a turbo-Forth, on peut egalement Les 
visualiser. Un programme nomme DECODPCX.FTH a ete installe 
en telechargement, accompagne de 4 fichiers d'images .PCX: 
- VOLTAIRE.PCX pour Les litteraires 
- DYNAMO.PCX pour Les survoltes 


22 - SERPENT1.PCX boire ou conduire... 


- GABY1.PCX quand sexe et soft se marient... 
Ces images sont exploitables sur IBM PC ou compatible 
equipe d'une carte CGA et en mode video 640x200 ( 6 MODE 
sous  TURBO-Forth). 
Pour Les moniteurs type HERCULES, VGA, EGA, vous pourrez 
adapter DECODPCX. (me communiquer Les modifs, merci 
d'avance...). 
Si des courageux veulent faire La meme chose en PASCAL ou 
en C, pas de probleme non plus. 
Ce programme est un des modules du projet de minitel haute 
definition. 
Bonnes cogitations (n'abusez pas de GABY1... si vous 
voulez, j'ai aussi GABY2 et GABY3 sous Le coude...) 


NOUVEAUX SOFTS EN TELECHARGEMENT: 

FORTH: 

Graphisme: DECODPCX.FTH et 4 fichiers d'extension .PCX; 
decodage d'images graphiques en CGA 640x200. 

Maths: 8 fichiers pour faire vos calculs en virgule 
flottante selon Les algorithmes de CORDIC. Selection de La 
precision a La compilation (12 a +100 chiffres apres La 
virgule. Dispose de sa propre pile de nombres flottants. 
Selon que L'on a choisi d'optimiser avec FP8086 ou 
FPFORTH, on dispose de routines optimisees en assembleur 
ou adaptables a d'autres FORTH que TURBO-Forth. Nota: Le 
package CORDIC est en anglais. 


13.05.89 10h27 

TRAVAIL PRO: J'AI POUR MISSION, DANS LE CADRE DE MES 
ACTIVITES PROFESSIONELLES, D'EQUIPER UN LABO DE GENIE 
CIVIL (MESURES ET TESTS) D'APPLICATIONS DE SAISIES ET 
TRAITEMENTS QUI DEVRONT S'EFFECTUER DEPUIS UN MINITEL. 
J'ENVISAGE DE PROGRAMMER UNE PARTIE DU PROGRAMME EN FORTH, 
EN CE QUI CONCERNE LA PARTIE COMMUNICATION ET SAISIE. 


SECRETAIRE 


POUR MENER A BIEN RAPIDEMENT CETTE PREMIERE ETAPE, JE 
RECHERCHE LES SPECIFICATIONS TECHNIQUES DU MINITEL 1B ET 
SURTOUT LES CODES DE CONTROLE EN ENTREE ET SORTIE. (STUM 
MINITEL 1B) (Ndlr: problème réglé à ce jour) 
MON CAHIER DES CHARGES EST ASSEZ SIMPLE: 

- SAISIE DE DONNES DEPUIS UN MINITEL COMMUNIQUANT AVEC UN 
PC. 

- TRAITEMENT DES DONNEES SUR PC ET ENVOI DES RESULTATS 
VERS LE MINITEL 

- REAIGUILLAGE DES DONNES DU MINITEL VERS LA PRISE 
MINITEL DISTANT AFIN DE PERMETTRE UNE IMPRESSION DES 
RESULTATS AU LABO. 

- ENFIN, CONNEXION D'UNE BALANCE ELECTRONIQUE AU MINITEL 
POUR  AUTOMATISER LA SAISIE DE MESURES (PESEE DE 
PONDERABLES EN PHASE DE DESSICATION). 


LE CHOIX D'UNE TELLE SOLUTION EST IMPOSE PAR DES 
NECESSITES BUDGETAIRES ET AUSSI POUR NE PAS IMOBILISER DU 
MATERIEL BUREAUTIQUE UTILISE PONCTUELLEMENT. 


LES DONNEES SAISIES DEVRONT ETRE STOCKEES DANS UN FICHIER 
dBASE NON INDEXE MAIS AVEC UN GRAND NOMBRE DE CHAMPS (+50 
CHAMPS). CERTAINES DONNEES DEVRONT SUBIR DES CALCULS 
D'INTERPOLATION: TRACAGE DE COURBE À PARTIR DE POINTS DE 
MESURE . 


SI VOUS ETES INTERRESSES PAR TOUTE OÙ PARTIE DES TRAVAUX 
DE CE PROJET (DANS LA LIMITE DE CE QUI EST DIFFUSABLE SANS 
ENFREINDRE LE SECRET PROFESSIONNEL), CONTACTEZ-MOI POUR 
ECHANGE DE BONS TUYAUX. 

ATTENTION: DONNANT-DONNANT, CAR JE ME REFUSE A TRANSMETTRE 
LE FRUIT DE MES RECHECHES A DES PERSONNES QUI 
L'EXPLOITERAIENT SANS RENVOYER L'ASCENSEUR. 
a — ———— 
SECRETAIRE 13.05.89 10h53 

NOUVEAUX SOFTS EN TELECHARGEMENT EN C, PASCAL ET DIVERS. 


DANS LA RUBRIQUE DIVERS, LE PROGRAMME CARDFILE.COM EST 
MAITENANT ACCOMPAGNE DE SON SOURCE EN ASSEMBLEUR ET D'UNE 
VERSION BASIC. 


LAMBERTPH 13.05.89 21h28 
PETIT PROBLEME DE METAGENERATION (A PROPOS DES METHODES- 
CERTAINS ME TROUVERONS ENTETE) SOIT DANS PHENIX LES 
ENTREES: 
FORWARD: EXIT 
T: METHODS> [TL TRANSITION ]] DOES> 
LFORWARD] EXIT ; 

ET DANS KERNEL UN UTILISATEUR DU MOT DE METAGENERATION : 

: INTÉGER CREATE O , METHODS> Q ! ? ; 


a 


J'OBTIENS EN FAIT LA VERSION SUIVANTE VERIFIEE PAR SEE 
: INTEGER CREATE O0 , DOES> EXIT ! ? ; 
COMMENT SE FAIT-IL QUE @ AIT ETE MANGE PAR EXIT? 


J'AI BIEN TROUVE UNE PARADE AVEC DANS KERNEL LA VERSION 
SUIVANTE : 
: INTEGER CREATE O , METHODS> à Q ! ? : 


HORS EN REGARDANT LES MOTS DE KERNEL QUI UTILISENT DOES> 
ON TROUVE SOUVENT UN &@ QUI N'EST PAS DANS LA VERSION DE 
PHENIX 


FORTH7 15.05.89 20h38 
REPONSE À LAMBERTH (et esprits Forth) Le DOES> de 
TRANSITION utilise Le mot le suivra pour resoudre Le code 
executif des mots de 2eme generation. Pourquoi? Parce que 
vous aurez peut-etre besoin de metadefinir! Ajoutez 
FORWARD: <INTEGER> 
H: INTEGER TARGET-CREATE 
[FORWARD] <INTEGER> O0 , H; 
(ca INTEGER de *** META *%%* ) 
(facultatif si pas de metadefinition) 
: INTEGER CREATE O0, 
METHODS> <INTEGER> à ! ? ; 
(ca INTEGER de votre *** cible ***) 
et vous pouvez alors METAcompiler qqch comme INTEGER 
MACHIN-CHOSE ds La cible! Vifs encouragements pour 
entetement! 


SECRETAIRE 18.05.89 09h36 
INITIALISATION PORT SERIE DU PC a 1200 bauds pour liaison 
PC<->MINITEL; Le mot 1200-BAUDS diffuse il y a quelques 
jours doit etre modifie un peu; il faut egalement 
initialiser Les parametres DTR et RTS: 

HEX 03F8 CONSTANT SERIAL 

CODE 1200-BAUDS SERIAL 3 + # DX MOV 

80 # AL OUT DX AL OUT 60 # AX MOV 

SERIAL # DX MOV DX AL OUT AH AL MOV 

DX INC DX AL OUT SERIAL 3 + # DX MOV 

1E # AL MOV DX AL OUT 

SERIAL 4 + # DX MOV \ reg ctrl modem 

01 # AL MOV \ DTR set, RTS reset 

DX AL OUT 

NEXT END-CODE 
a noter que l'initialisation du port serie peut aussi etre 
ecrite en FORTH en utilisant Le mot PCI: 

HEX 03F8 CONSTANT SERIAL 

: 1200-BAUDS € ---) 

80 SERIAL 3 + PC! 

60 SERIAL PC! 

00 SERIAL 1+ PCI! 

ÎE SERIAL 3 + PCI \ 7 bits, E, 1 

01 SERIAL 4 + PCI \ DTR set RTS reset 


LA 
car cette routine n'etant utilisee que une seule fois, il 


n'est pas necessaire de l'optimiser en code machine. 


CONCERNANT CONTROLE MINITEL 1B en mode 80 colonnes, Les 
codes de controle IBM (sequences ESC, norme ANSI) sont 
applicables. 


En mode 80 colonnes, on ne dispose pas de La couleur, mais 
seulement des attributs d'affichage suivants: 

18 5B 30 6D pas d'attributs 

18 5B 31 6) surintensite 

18 5B 34 6D soul ignement 

18 58 35 6D clignotement 

18 5B 37 6D inversion video 
Pour passer en 80 colonnes, il faut injecter au minitel Les 
codes suivants: 1B 3A 32 7D et suivis de 0E si L'on veut 
le jeu ASCII francais avec caracteres accentues. 


Si vous avez effectue La procedure de retournement du modem 
de votre MINITEL et qu'un correspondant dispose aussi d'un 
minitel 1B, cest Le minitel du correspondant qui basculera 
en affichage 80 colonnes. 


A partir de ce moment, Le clavier etendu devient 
opérationnel: touches flechees et envoi en bas de clavier, 
touches CTRL-car et touche ESC. 


En esperant que ca vous titillera l'imagination... bye. 


80 COLONNES, ON PEUT GERER LES ATTRIBUTS DU MINITEL 1B 
AVEC LES MEMES SEQUENCES ANSI QU'UN IBM PC MONOCHROME 
(SÉQUENCES ESC). 


J'AT DEFINI LES EQUIVALENTS DE KEY, KEY? EMIT ." TYPE SANS 
PASSER PAR UNE REVECTORISATION SYSTEME. AINSI, UN MEME 
PROGRAMME FORTH EST UTILISABLE SUR PC OU MINITEL SELON QUE 
L'ON COMPILE AU PREALABLE LES ROUTINES D' INTERFACE OÙ NON. 


MAINTENANT, JE PLANCHE SUR LES PROTOCOLES PERMETTANT 
D'IDENTIFIER LE TYPE DU TERMINAL DISTANT POUR AUTORISER LE 
BASCULAGE EN 80 COLONNES LE CAS ECHEANT. 


LEMAIGRE 24.05.89 22h23 
BONJOUR, PARTICULIEREMENT AU SECRETAIRE. J'AI FAIT UNE 
VERSION  REORGANISEE DU  FORTH.VOC POUR AVOIR LES 
INSTRUCTIONS CLASSEES SUIVANT LEUR DOMAINE D'APPLICATION. 
PAR EX: 

GENERAL 

MOUVEMENT DE PILE 

ACCES MEMOIRE 
ACCES DOS 

INPUT OUTPUT 

COMPILATION 

CHAINES 

ETC... 
CELA DONNE UN ASPECT BEAUCOUP PLUS DOC ET BIEN PLUS 
UTILISABLE CA INTERESSE QUELQU'UN? 
EN PLUS J'ESSAYE D'ECRIRE UNE MINI DOC DE DEMARRAGE POUR 
DES STAGIAIRES. SI CA VA BIEN POUR TOUTES LES INSTRUCTIONS 
QUI RESSEMBLENT AU FORTH79, JE PATAUGE UN PEU POUR LES 
EXEMPLES DE S$EXECUTE, BIEN QUE JE PILLE SANS VERGOGNE 
JEDI. MAIS JE VOUDRAIS BIEN ARRIVER AU BOUT D'UN PETIT 
DOCUMENT DE DEMARRAGE DANS TF. JE CHERCHE NOTAMMENT 
COMMENT COMPILER LE NOM D'UN FICHIER POUR L'OUVRIR PAR 
OPEN SANS AVOIR BESOIN DE LE DONNER AU CLAVIER 


SECRETAIRE 25.05.89 08h45 

REPONSE PARTIELLE A LEMAIGRE: CONCERNANT FORTH.VOC; CE 
FICHIER NE DOIT PAS ETRE REORGANISE, CAR IL EST TRAITE PAR 
HELP. DONC L'RDRE DES MOTS DANS UN FICHIER DE TYPE .VOC 
IMPORTE PEU. 


SI VOUS CREEZ UN NOUVEAU VOCABLAIRE, LOGO PAR EXEMPLE: 
VOCABULARY LOGO LOGO DEFINTIONS 
VOUS POUVEZ DOCUMENTER VOS DEFINITIONS DANS UN FCHIER 
LOGO.VOC. EX: 
ï POUR [COMPILE] : ; IMMEDIATE 
: FIN [COMPILE] ; ; IMMEDIATE 
POUR ETOILE ASCII * EMIT FIN 
MAINTENANT, POUR DOCUMENTER NOTRE EMBRYON DE LANGAGE LOGO, 
APPELER L'EDITEUR FORTH EN OUVRANT UN NOUVEAU FICHIER; 


LE PREMIER MOT D'UNE LIGNE DOIT ETRE LE NOM DU MOT À 
DOCUMENTER: 


POUR Mot creant un nouveau mot dans 
Le vocabulaire LOGO 


LA FICHE D'AIDE D'UN MOT PEUT ETRE DE TAILLE QUELCONQUE (1 
Ligne minimum). 


ON SEPARE LA FICHE D'AIDE DU MOT 'POUR' DE LA FICHE D'AIDE 
SUIVANTE PAR DEUX RETOURS CHARIOT; DEUX RETOUR CHARIOT= 
SEPARATEUR D'ENREGISTREMENT. 


SAUVER VOTRE FICHIER AVEC LE NOM: 

LOGO.VOC 
PUIS REPASSEZ SOUS FORTH, (CELUI DANS LEQUEL POUR ET FIN 
SONT COMPILES), SELECTIONNEZ LE VOCABULAIRE LOGO: 

LOGO LEARN FORTH SAVE-SYSTEM LOGO 


LEMAIGRE 25.05.89 20h25 

OK. MERCI DES EXPLICATIONS. MAIS LE BUT EST UN DOCUMENT 
IMPRIME QUI PERMET UNE CONSULTATION PAR RUBRIQUE DE 
BESOINS DU GENRE: QU'EST CE QUE J'AI POUR FAIRE UNE 
MULTIPLICATION? 

IMPOSSIBLE DE FAIRE AVALER À UN DEBUTANT QUE LE SEUL MOYEN 
EST DE FAIRE LE HELP DE TOUS LES MOTS AU HASARD, OU SE 
TAPER L'ORDRE ALPHABETIQUE POUR DECOUVRIR QU'IL EXISTE 
*/MOD ET /MOD. LE HELP N'EST QU'UNE AIDE POUR UNE SYNTAXE. 
JE RESTE SUR MES POSITIONS! AMICALEMENT 


SECRETAIRE 20.05.89 9h16 
MES ROUTINES DE COMMUNICATION MINITEL-PC AVANCENT BIEN. EN 


26.05.89 14h45 
COLLEGUE  LEMAIGRE! 


FORTH7 


SOUTIEN AU Votre initiative est 
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parfaitement dans le principe des fichiers de documentation 
*.VOC qui ont ete concus aussi bien comme fichiers-textes 
docs que comme index pour HELP. 

C'est par simple paresse que nous avons adopte l'ordre 
alphabetique (pour ne rien oublier) 

Il suffit de repasser Un fichier VOC plus "sympa" au LEARN 
pour re-indexer tous les HELP. De plus, il a ete prevu de 
pouvoir ajouter du texte "libre! (titres, paragraphes 
etc...): il suffit que Le premier mot n'en soit pas un mot 
du dictionnaire a indexer. 


Je signale cependant une limitation: un fichier .VOC ne 
doit pas depasser 64 Kilo-octets de texte pour que 
l'indexation des HELP soit correcte. Ceci est du au fait 
que le view-field servant de pointeur dans le fichier VOC 
est code sur 16 bits seulement. Cette limitation risque de 
poser un probleme assez serieux a qui voudrait documenter 
largement Le vocabulaire FORTH qui est de Loin Le plus 
volumineux. 


L'idee de fichiers .VOC structures est excellente: je suis 
pret a LEARN'er de nouvelles versions! (foreign versions 
likewise wanted!) 


SECRETAIRE 26.05.89 18h19 
JE CONSTATE QUE L'ON S'EXPRIME FERME AU SUJET DU BEBE 
TURBO-F83. DE MON COTE, J'AI PU TESTER LES FONCTIONS 
GRAPHIQUES DU FICHIER GRAPHIC.FTH EN MODE VGA: 
HEX 10 MODE ou 

11 MODE ou 

12 MODE 
PERMET DE CHOISIR UNE COULEUR PARMIS PLUSIEURS: 

n GCOLOR 
OÙ n VARIE ENTRE O ET LE NOMBRE DE COULEURS POSSIBLES DANS 
CES AUTRES MODES. EX: 12 MODE DONNE ACCES A 16 COULEURS 
AVEC UNE DEFINITION DE 640x480 PIXELS. 


DANS LES MODES 4, 5 OÙ 6, LES CARACTERISTIQUES D'AFFICHAGE 
D'UNE CARTE VGA SONT SIMILAIRES A CELLES D'UNE CARTE CGA. 
COMME QUOI, PASSER PAR LE DOS EST UN GAGE DE PORTABILITE 
QUAND ON DEFINIT DES ROUTINES GRAPHIQUES. 


MYCROFT 05.89 19h17 
J'UTILISE AUSSI FORTH.VOC COMME FICHIER DOCUMENTAIRE 
IMPRIME ‘A COTE'; COMME DEBUTANT JE PREFERE LA LISTE 


ALPHABETIQUE DE TOUS LES MOTS: CA VA PLUS VITE À CONSULTER 
POUR LIRE UN LISTING. 
BIEN-SUR J'ATTENDS AUSSI LA VRAIE DOC PAPIER: C'EST POUR 
QUAND? À PROPOS DE FORTH.VOC, QUAND ON FAIT 

HELP MOT MOT2 MOTS SÉTOR 
TOUS LES MOTS APRES HELP SONT EXPLIQUES COMMENT FAIRE POUR 
QUE HELP S'ARRETE D'EXPLIQUER? 


SECRETAIRE 26.05.89 21h01 

CONCERNANT LA  VRAIE DOC PAPIER: ELLE EST EN VOIE 
D'ACHEVEMENT. DES IMPERATIFS PERSONNELS ONT RETARDE SON 
ACHEVEMENT. D'AUTRE PART, J'AVAIS FAIT APPEL POUR LE PRET 
D'UNE IMPRIMANTE LASER (SUR REGION PARISIENNE) ET N'AI 
OBTENU AUCUNE REPONSE... 


HEUREUSEMENT, MAINTENANT C'EST REGLE. DONC, JE VAIS POUVOIR 
TIRER LA MAQUETTE DU MANUEL DANS QUELQUES SEMAINES. 
REMERCIEMENTS AUX CORRECTEURS BENEVOLES 


SECRETAIRE 26.05.89 21h05 

CONCERNANT LE TRAIÎTEMENT DE FICHIERS PAR MINITEL, J'AVANCE 
BIEN. CE PROGRAMME DESTINE A ETRE OPERATIONNEL DANS LE 
CADRE DE MES ACTIVITES PROFESSIONNELLES POURRAIT AUSSI 
INTERESSER DES ADHERENTS. ACTUELLEMENT, JE GERE L'ECRAN DU 
MINITEL 1B DISTANT EN 80 COLONNES AVEC SES ATTRIBUTS, 
POSITION CURSEUR. LORS DE LA SAISIE D'UNE CHAINE DE 
CARACTERE, ON PEUT FILTRER PRATIQUEMENT COMME AVEC 

UNE ZONE DE SAISIE dBASE. 


LUNDI J'ATTAQUE LE TRAITEMENT NUMERIQUE SOUS LA FORME: 

X ÿY AT ###4.#H# M PICTURE num GET 
EN CAS DE FRAPPE DE CARACTERE NON NUMERIQUE 0..9 VIRGULE OÙ 
POINT, JE TRANSMET UN MESSAGE D'ERREUR SUR LA LIGNE O ET 
REMET LE CURSEUR EN ZONE DE SAISIE. 


MES ROUTINES DISPOSENT DE PLUSIEURS FILTRES: 

NUMERIQUE 0..9, 

DATE 0..9 / 

ALPHA MAJ a->A..z->2 

LES DONNEES AINSI SAISIES POURRONT ETRE STOCKEES DANS UN 


FICHIER dBASE III/III+. 


CES ROUTINES SERONT PARTICULIEREMENT UTILES A CEUX QUI 
VOUDRONT  DECENTRALISER LA SAISIE OU CONSULTATION DE 
DONNEES A PARTIR D'UN MINITEL GERE COMME TERMINAL 
TELEINFORMMAT IQUE . 


SI VOUS MEME POSSEDEZ UNE CARTE CORTEX, JE VOUS PROPOSE DE 
M'AIDER A ADAPTER MES ROUTINES QUI NE GERENT POUR LE 
MOMENT QU'UN MINITEL RETOURNABLE CONNECTE SUR LE PORT 
SERIE OÙ MINITEL. 


BUT DE LA MANOEUVRE, EN DEHORS DE MON APPLI PRO, PROUVER 
QUE FORTH PERMET L'ELABORATION D'UTILITAIRES AVANCES ET 
ADAPTABLES. A+ 


FORTH7 27.05.89 18h56 
SOIGNEZ VOS COMMENTAIRES! On ne met jamais assez de 
commentaires dans ses programmes: combien de genies 


meconnus pour l'avoir oublie? 
Usez donc largement des  (  ) CS \ ou du EOF pour 
documenter vos oeuvres! 


Avec l'adoption du fichier-texte source de nouveaux Forth 
(comme Turbo-Forth) proposent de placer des commentaires 
multilignes entre accolades alt-123 et alt-125 (non 
minitel malheureusement!) ou entre alt-125 et alt-123, 
Les avis restent partages. Voici pour TF83 une adaptation 
de ce principe: 


: (COMMENT) € -- state) \ patch RUN 
ASCII } \ accolade fermante alt-125 
PARSE NIP SOURCE NIP <> 
IF {‘1 STATE IS RUN THEN STATE ; 


: € (-- ) \ accolade ouvrante alt-123 
['] (COMMENT) IS RUN 
[COMPILE] \ 3 IMMEDIATE 


€ { accolade ouvrante) 
ceci est Un commentaire: toutes Les lignes apres € sont 
ignorees par l'interpreteur jusqu'au symbole final 

( accolade fermante) 


29.05.89 23h14 
$S oO S 


LEMAIGRE 


LA FONCTION 
: INPUT 

PAD 20 2DUP 32 FILL EXPECT PAD 1- NUMBER? ; 
5: IN / TEST DE INPUT 


CR .' INPUT" 
CR ." FLAG ". 
CR ." DN "D. 


CR ." SPAN! SPAN ? PAD 1- 20 CR DUMP ; 

NE FONCTIONNE PAS A LA ere COMPIL, MAIS PARFAITEMENT 
ENSUITE, DES QUE L'ON A TAPE LE MOINDRE MOT FORTH. 
SUR UN “PROGRAMME AUTO BOOT, PAS MOYEN DE LUI FAIRE FAIRE 
QQ CHOSE. MAIS SI L'ON SORT ET QUE L'ON RELANCE LE PROG 
C'EST OK. LE DUMP DE PAD EST NORMAL LE NUMBER? NE FAIT PAS 
LA CONVERSION. UNE IDEE? 
ET 
FORTH7 30.05.89 20h30 
QUELQUES BOUEES DE SAUVETAGE . . . 
1) NUMBER? utilise une chaîne implicite s'appuyant sur un 
espace de separation. 
2) EXPECT prend au clavier une chaine explicite 

PAD 1+ 20 EXPECT 
3) on a neglige Le passage ch.explicite 
ch.implicite SPAN à PAD Cl! 
l'espace d'appui BL PAD COUNT + CI 
avant conversion PAD NUMBER? ; 
4) Le PAD evolue avec Le dictionnaire et Les compilations 
successives: il ne doit etre utilise que temporairement 
(PAD=bloc-note) pour Un meme mot. 
5) L'espace avant PAD € pad 1- ) n'est pas libre mais 
reserve a L'interpreteur et aux conversions mumerique- 
alpha. autoboot? euh c'est surement Le delco 


SECRETAIRE 31.05.89 10h55 
REPONSE À LEMAIGRE: J'AI CRU COMPRENDRE QU'IL VOULAIT 
FAIRE UN INPUT NUMERIQUE. MAIS POURQUOI CHERCHE-T-IL LA 
PETITE BETE ALORS QUE L'ON PEUT FAIRE PLUS SIMPLE: 

10 STRING TAMPONS 

TAMPONS INPUTS (€ INPUT$ DEJA DEFINI DANS TURBO- FORTH) 


PUIS SI VOUS ENTREZ UNE VALEUR NUMERIQUE LA LIGNE SUIVANTE: 
TAMPONS $EXECUTE 

CONVERTIT VOTRE CONTENU DE TAMPONS EN NOMBRE. 

SI VOUS DEFINISSEZ 1989 CONSTANT ANNEE ET LORS D'UN TAMPONS 
INPUTS VOUS REPONDEZ ANNEE, L'EXPRESSION TAMPONS SEXECUTE 
RENVOIE 1989. 


SECRETAIRE 31.05.89 13h21 

SCIENCE ET MEDIAS: DEPUIS LE SIECLE DES LUMIERES, LES 
PHILOSOPHES ETAIENT SOUVENT DOUBLES DE MATHEMATICIENS, 
CHIMISTES, MEDECINS... AUJOURD'HUI, DANS NOS MEDIAS, LA 
PART CONSACREE AUX SCIENCES DEVIENT CONGRUE. EN DEHORS DES 
BREVES DE M.CHEVALET PENDANT LES JOURNAUX TV, IL NE RESTE 
PRATIQUEMENT RIEN. 


UNE EXCEPTION, M6 QUI UN DIMANCHE SUR DEUX DIFFUSE ‘QUAND 
LA SCIENCE MENE L'ENQUETE'. DE QUALITÉ TRES INEGALE, 
SALUONS QUAND MEME CET EFFORT CULTUREL. 


ET MAINTENANT, SUR LA SEPT (RESEAUX CAABLES ET SATELLITE), 
MERCREDI A 15h30: UN MAGAZINE 'SCIENCE' DONT LE CONTENU EST 
INCONNU À CE JOUR. SI VOUS AVEZ LA CHANCE DE LE VOIR OÙ 
L'ENREGISTRER, FAITES NOUS UNE BREVE. 


TOUJOURS PAR SATELLITE, UNE FOIS PAR MOIS, SUR SKY CHANNEL, 
UNE EMISSION SCIENTIFIQUE DIFFUSEE A... 2h00 DU MATIN. 


VOICI LE PAF EUROPEEN, CELUI QUI VEUT RELEVER LES DEFIS 
TECHNOLOGIQUES DE DEMAIN. DANS UNE SOCIETE EN CROISSANCE 
TECHNOLOGIQUES EXPONENTIELLE, ON VOUDRAIT NOUS LAISSER DANS 
L'IGNORANCE QUE CA NE M'ETONNERAI POINT. 

C'ETAIT MON BILLET DE MAUVAISE HUMEUR... 


LEMAIGRE 05.06.89 22h18 
REPONSE A FORTH7: MERCI POUR VOS EXPLICATIONS SUR MON INPUT 
EFFECTIVEMENT DECALAGE D'UN ESPACE EN AVANT ET ESPACE 


D'APPUI RESOUT PB. 


REPONSE À SECRETAIRE: MERCI POUR EXEMPLE $EXECUTE, MAIS PAS 
SECURISE POUR EMPLOI TOUS PUBLIC, J'AVAIS BESOIN D'UNE 
ENTREE NUM SURE ET GESTION DE ESCAPE PAR REDIRECTION DE 
TABLE CC. CA MARCHE SUPER. MAIS QU'EST CE QU'ON APPREND 
DANS LES IUT D'INFORM. SUR LA PROGRAMMATION STRUCTUREE. CA 
JE ME DEMANDE TOUJOURS! A QUANQ LA CORRECTION DE SAISIE DU 
SERVEUR POUR LES LIGNES TROP LONGUES? AMICALEMENT A TOUS 


SECRETAIRE 08.06.89 08h43 

MACROS DE SUBSTITUTION: en dBASE, il est possible de 
definir des macros de substitution avec Le symbole &. 

En €, Les macros de substitution sont definies par #define. 
Ce mot permet aux habitues de PASCAL, par exemple, de 
reutiliser Leurs READ et WRITE en Le definissant en C par 
#def ine. 


Et en FORTH? Croyez-vous que cela soit si difficile de 
creer un mot #DEFINE? 


Si vous pariez, deconnectez-vous sur cette page et planchez 
sur cette colle. Par contre, si vous etes allergique a 
la cogitation solitaire, tapez SUITE... 


Vous avez bien planche? Voici ma version de #DEFINE (10 mn 
pour Là mettre au point): 
: ADEFINE ( str --- <mot>) 
CREATE 
DUP DUP C, HERE >R O C, DP +! 
DOES> 1+ COUNT S$EXECUTE ; 


R> COUNT $! IMMEDIATE 


Ouf, c'etait dur... Pourquoi ne l'a-t-on pas pondu plus 
tot. A quoi cela peut-il servir? Pour votre education 
FORTHienne, tapez a nouveau SUITE (faut bosser un peu). 
Notre quidam programmeur FORTH ayant immediatement pige 
tout l'interet de #DEFINE aura maintenant les moyens de 
compiler un programme 79-Standard en TURBO-Forth sans avoir 
a retoucher le source de son programme: 
. N THEN " #DEFINE ENDIF 

" DARK " #DEFINE CLS 

M 4- PICK “ #DEFINE PICK 

: TEST € fl ---) 

IF CLS ENDIF ; ( definition 79-Std) 


EECE 


La definition decompilee de TEST sera equivalente a: 
: TEST IF DARK THEN ; \ def 83-Std 


FORTH7 08.06.89 15h02 
FILETS DE MACROS propose: 


: #DEFINE € <nom macro> string -- ) 


CREATE TUCK HERE PLACE 
1+ ALLOT IMMÉDIATE 
DOES>  COUNT $EXECUTE ; 


"Input Stream Macros! 

# Compiler Macros! 

Comment traduire ce type de macros que seul 
(j'allais dire Turbot) sait cuisiner si bien ? 
nouveaux anglicistes ( WelcomE ! ) ont-ils des idees? 


Turbo 
Nos 


LEMAIGRE 08.06.89 19h05 
IL EXISTE UNE VERSION TIMER EN TELECHARGEMENT POUR AIDER 
A TESTER DES PRGS. 
CA M'A DONNE UNE IDEE D'EXTENSION DE DEBUG. LUI FAIRE 
AFFICHER LE TEMPS D'EXECUTION DE CHAQUE MOT. PEUT ETRE 
UTILE QUAND ON EST ENCORE DANS LES MOTS DE BASES. CELA 
SERAIT UNE AIDE POUR DECOUVRIR POURQUOI VOTRE PROGRAMME 
EST SI LENT DES QUE L'ON EST A UN NIVEAU SUPERIEUR. SI CA 
VOUS TENTE,MOI JE NE M'Y ATTAQUERAI PAS. SLTS 

H 
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